000000000 
000000000 
000000000 


000 
000 
000 


000000000 
000000000 
000000000 


—ICOMMMNIOWZES KCK TO MOOOZS ACK TO WMIOIOOZ™Z SE ACK TO ™MIOOOZ Sr ACH TO ™MIOOW 


**F ILE**1D**MOMLOAD 


MM MM 000000 MM MM LL 000000 AAAAAA DDDDDDDD 

ual MM 000000 MM MM LL 000000 AAAAAA DDDDDDDD 

MMMM MMMM «600 00 MMMM MMMM LL 00 OO AA AA DD DD 

MMMM = 6MMMM 600 00 MMMM MMMM LL 00 OO AA AA 0D DD 

Mm 60MM MM «(O00 00 MM MM MM LL 00 OO AA AA 0D DD 

MM 60MM 66MM «(O00 00 MM MM MM LL 00 00 AA AA DD DD 

ala! MM 600 00 MM MM LL 00 OO AA AA DD DD 

MM MM 00 00 MM MM LL 00 OO AA AA DD DD 

MM MM 00 00 MM MM LL 00 00 AAAAAAAAAA DD DD 

MM MM 600 00 MM MM LL 00 00 AAAAAAAAAA DD DD 

MM MM 600 00 MM MM LL 00 OO AA AA 0D DD cove 
MM MM 00 00 MM MM LL 00 00 AA AA 0D DD eeee 
MM MM 000000 MM MM LLLLLLLLLL 000000 AA AA DDDDDDDD cece 
MM MM 000000 MM MM LLLLLLLLLL 000000 AA AA DDDDDDDD cove 
LL III] SSSSSSSS 

LL HII! SSSSSSSS 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL IIIII] SSSSSSSS 

LLLLLLLLLL HII SSSSSSSS 


eee eee OOOO) 


fF 13 
Network Management Down Line Load Routines 16-Sep-1984 02:03: VAX-1 
° : 2 : § 9 03:43 I 


1 Bliss-32 io Phd Page 
DISKSVMSMASTER: CMOM.SRC JMOMLOAD .B32; 1 (1 


Ma 


-Sep-19 


ZTITLE "Network Management Down Line Load Routines’ 
MODULE MOMLOAD ( | 
LANGUAGE (BLIS$32) 
ADDRESSING_MODE (NONEXTERNAL=LONG_RELATIVE), 
ADDRESSING MODE (EXTERNAL=LONG_RECATIVE), 
we = 'y04-000' 
s 


BEGIN 


OEE TESTS ESET STITT TTT TTT TTT erie i iii tritici iti titi iii titi iititiiit 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
i ALL RIGHTS RESERVED. 


*® 

w 

e 

* 

® 

: ® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'* COPIES THEREOF MAY a BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 

® 

® 

® 

* 

a 

® 

® 

® 

a 

* 


a 


VIEUN —OOOBNOAOUS WN HOO ODNAUES WN OOODNOUE WN 


!t TRANSFERRED. 

:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

!t CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'‘@ 
Lee e eee eee EAA AAAAAEAAAEA AAA AAE TAREE AAAAAEREAREREEReREE Ee 
‘ 


WAPROPOPOMOPOMOMONINUND 2 2 3 


WAH APU — ODES NOU PU OO NPP O Doe 


'e¢ 


! FACILITY: DECnet-VAX V2.0 Maintenance Operations Module 


ABSTRACT: 
This modute contains routines to handle load maintenance operations, 


SSssssssooooooossoooSessS 


AAAI NAW 


instead of load/dump protocol. 
v03-002 mcP000e Kathy Perko 31-May-1983 


Fix load file open so that, if the target requests diagnostics, 
the diagnostics are loaded. 


Fimayaeeniet Aenea 


a em a ma a ek ad ed od = = 2 = = od 8 8 ow = 


i 
i 
4 ste both target requested (automatic) and operator requested. 
41 9041 ENVIRONMENT: VAX/VMS Operating System 
rb Does AUTHOR: Kathy Perko 
45 b0e8 CREATION DATE: 18-Feb-1983 
4 b0e9 i MODIFIED BY: 
48 Bpe8 ' v03-004 MKP0004 Kathy Perko 22-May-1984 
rh $3 Fix the LOAD trigger to use one channel for non-NI Loads. 
1 51 i v03-003 MKP0003 Kathy Perko 11-Feb-1984 
§ 26 : Fix TRIGGER so it is sent on NI using Remote Console protocol 
084 i 
ae 
3§ i 


Be Se Be Oe Se Be Se Ge Ge Se Se Ge Be Ge Se Ge Fe Se Se Fe Se Ge SH FH SH Ge Se Oe Se Se Se Se Se Be Se Ge Se Se Ss Ge Se Se Se Se Se Se Se FHS S5 Ss Oe Oe Oe Se Se ee 
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iS beoct9ge 03205: 


v03-001 eePoon) Kathy Perko 10 

ix cpeck on _ load number requested by Pi vA 

Ak FF to 00. Only trigger target 7 loa 
secondary loader first. 


i 


she 


Mr a tH Lise 


y-1983 
so it wraps 
g the 


0-7 
TER: CMOM. sae MOMLOAD .832; a 
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. 
e 
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. 
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7 
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Declarations 
1 ZSBITL ‘Declarations’ 


! TABLE OF CONTENTS: 


erat VAX 11 BLiss=32 V4_0-74 


FORWARD ROUTINE 
$load 


mom$ loa 
mom_load trigger, 
mom_mbikload, 
mom_load_sys_file, 
mom_load_cc_Tile, 
secload, 
xmit_load frame, 
mom_readloadfite |: NOVALUE, 
mom check _label_blk : NOVALUZ, 


sseseesss 


WR OOONOUE 


Sssssss 


OOo JINN 


$8 mom$loadhandler; 

0085 : 

pees ! INCLUDE FILES: 

0088 | 

008 LIBRARY ‘LIB$:MOMLIB.L32'; 

0090 LIBRARY ‘SHRLIB$:NMALIBRY Lge": 
0091 LIBRARY *SHRLIBS:EVCDES ot "3 
009 LIBRARY i he SE 8 

009 LIBRARY ‘SYSSLIBRARY:LIB.L32°; 
0094 

4 i RONGK LOADGUF $12 must be large enough to accomodate the entire secondary 


' load nage. since the secondary loader is always sent in one transmit. 
! MOMSK_SEGBLKCNT is used to determine the number of 32 word blocks in 

! each MOP transmit for a multiblock load (tertiary load and operating 
system load). 


a multiblock load has been sent. 
The following buffers are used for downline loading. 
MOMST_LOADBUFFER is used for transmitting memory image data. There 


o 
ma a a a ed ad ad od dd a 8 a a 


0101 : 
O12 LITERAL 
010 mom$k_loadbufsiz = 1536, 
Bigg mom$k_segblkcnt = 4; } tater of Seqveré blocks in a multiblock 
Cae : 
is i OWN STORAGE: 
tee 
111 OWN 
ig mom$\_baseadr, ! Base address of load Segment 
11 mom$\_bikcnt, ' Number of blocks in buffer 
114 mom$\_loadsize, ! Size of image in 32-word blocks 
115 mom$\_transfer ! Image transfer address 
116 mon$u_pondetai : WORD, i 
11 mom$u_first_load_frame; ! Indicates if first load frame for 
i | 
133 
121 
122 


Program error detail 
| 
| 


Q 


os 
oc 


375 
ox 


t 


meseene nformst) 


cen ~. of MOMST_LO 


from this put tet whic 
The MOM$Q_DATADSC 


— tt 


MEAN "SO OONOUE 


" 
ion 
! 
i 
i 
ins e data takes 8 
i 
i 
i 
i 
i 
L 


ITERAL 
mom$k_maxsecsiz = 1 


mom$t_cc_wrap_buf: 
mom$t_loadbuffer : 


BIND 
mom$t_readbuffer = 


mom$q_loadbfdsc = 


COOCGCOCCOCOOOOOCOCSOOCOCOOCOOCO Vg 


et = as a a as a tt 


mom$q_readbfdsc : 


mom$q_datadsc 


EXTERNAL REFERENCES: 


Smom_externals; 
EXTERNAL ‘Gaaeel 


EXTERNAL 
mom$ab_mopdevices : 
mom$gq_t imeout 
mom$npa_mop load; 


EXTERNAL ROUTINE 


AOAAAOOUIIMINUIMIVIUNMIU ES BERR ERLE 


mom$init _cib, 
mom$log_évent, 


Be Se Se Se Se Ge Ge Ge Se Ge Se Ge Ge He Se Ge Sete Ge Ge Ge Se Fe Se Ge FH FH Se Se Ge Ge Ge Se Ge Ge Se Se Se Se HSH Se Ge Se Ss Se Se Ss Se Se Oe Ss Se Os Oe Se Ss 
ec ee ee ee ce ce ce ce a ce ee ee ce ee ee ee ee ce ce ce ce ee ce ce ee ce ce ee ee ee ee ee ee ee ee ee ee ee ee 


ee ee en ee eee SY 


NNNNNNNIAAAAAAAAAARUUUUINUNNA RR RR RR RR RRR 


DSA AN IIS Doo WH Pa OS DO GOA PUN o-oo On oat Oe 


SOOOCOOOCOCOCOCOSOCOCOCOCOOOOOCOOOOOOOOOOOOOOoOO 


BO bs 4s a tk a a ts a as 8 ts a 


SNS NNO O 


anegenent Down Line Load Routines 15500-1984 96:03:43 


are 6 bytes of oy enene at the beginning 


buffer to coarete 
ohne en ating pout ter. 


at a time, and Saas tted 


VAX-11 B 
14-Sep- DISK Sunen 
f oe, ip! to hold MO 
There are 4 bytes o gyern age at the end - 
the transfer Lddress neede Ss the 
MOMST_READBUFFER 
FFER. e image data i§ read from disk : block 
pi Lee: by piece directly 
h is why the overhead bytes are required. 


is used to describe the extent of the image data 
read in t6 MOMST_READBUFFER. 


498 - 6 = 4; 
BBLOCK Cmom$k_loadbufsizJ, 
BBLOCK [6 + mom$k_ loadbufsiz + 4]; 


mom$t_loadbuffer + 6 

: BBLOCR mom$k lLoadbufsiz] 

= UPLIT + mom$k_loadbufsiz + 4, mom$t_loadbuf fer) 
45 (nonfk_loadbutsiz, mom$t_readbuf fer) 


VECT - C2) 
INITIAL (G, mom$t_readbuf fer); 


! Macro to define common externals 


Soc ockve ctor CO,mdt$k_entrylen], 
: VECTOR (OJ, 


ease a 


s-32 V4.0-7 Page 4 
STER: CMOM. sae MOMLOAD .B32; 1 (2) 


ivi fellaretiens ne ee ibche sp-13be 93:02:43 KSVMEMASTERSCMOM-SRCSMOMLOAD.B32:1°%° (25 


.: % 1 } mom$srvclose, 
7.7 1 non srvopen, 

3 («3 1 1 menzervreed. 
ry 1 1 mom$srvrewind 
3; 1 1 1 mom$srvwrite; 
HM 1 


ce 


— st as 3 
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7 SBTTL ‘mom$load Perform a Soon “ne system load’ 


% 
GLOBAL ROUTINE mom$load : NOVALUE = 


1o¢ 
! FUNCTIONAL DESCRIPTION: 
This routine performs the downline system load function. 


: 


S: 
CIB = Channel Information Block for MOP QI0 channel to the circuit 
over which to do the down Line load. 


— VALUE: 
TION CODES: 


| 


ts - — _ — _ _ 


SRLSARLANLSLSLELLAV= 


AANA AN AAAAAHIEAPIPOPUPDPUNDPI NI PIPIPINIPINPIPIPIPIPINIPIPINIPINPYRD 9 dt at tt ot 
ecasoseoco® cr @w 
om 
ao oa 
> = 
--=—— 6c 
o-m— 
aa 
vo 
--a 
n> 
@e 
_ 


OOOCOOCOCCOCOCOCOCOCOCOOOOOOOO 


adflag, 
msgdsc : VECTOR (2), 


pot > Ng 
snddsc : VECTOR (2), 


: status; 


; Enable condition handler to perform cleanup after load function. 

ENABLE mom$loadhandler; 

Set the circuit substate. 

if -mom$gl_service_ flags C[mom$v_autoservige] THEN 
mom$mopsetsubstate (nma$c_linss_alo 

cad emom$ab_ciB Ccib$t_chan]) ! -AUTOLOADING 

i af doing an operator requested load, set the circuit substate to 

! Loading and trigger the torget 's load device. If it doesn't respond 

! to the trigger, mom_load_trigger will not return here. 

"BEGIN 


Open the 1/0 channel over which to do the load. 


POPIPOPONIPORY) <8 8 ot ot 2 ot 


MEN (OOO NOUES WIN ("OOO NOUS WO 


mom$mopopen (mom$ab_cib Ccib$l_chan}); 
mom$mopsetsubstate Tnma$c_l ney “se 
' smom$ab_cib Ccib$l_chan}); ! -LOADING 


i Set up Channel Information Block for the load channel. for NI circuits, 
!' this sets up the NI protocas (in this case load/dump) the circuit, and 
associates it with a specific NI destination. 


mom$init_CIB (mom$ab_cib, ! Channel Information Block addr 


SOOOCOOSOOOOSOCOSOOSCOOOOOOOOOOOOOOoOoOoOoOoOO 
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13 

A Network Management Down Line Load Routines 1-Se -1984 02:03: VAX-11 Bliss-32 V4.0-74 Page 7 
yo=000 mom$ load Perforn a downline system load 132808- 1386 ra DISKSVMSMASTER: CMOM. SRC JMOMLOAD.832; 1 . (3) 
> 26 64 nma$c_fnc_loa ! Function = load 
; rh 45 svd$gk_pcho_pha, ' NI Phycial Address 
; 24 4 svd$gk_pcno_add ! Node address 
: 26 4 SydS9k-peno hua) i NI hardware address 
; ’ rt jf _,monSeb_service dite Svd$gk_pcno_sty, svd$l_param] EQL nma$c_soft_secl 
: ¢ 0 mom_load_trigger (); 
; Z 1 ’ END; 
: 5 § : Perform the load. 
3 ; 5 loadflag = true; ! Set the load retry flag 
; § 29 WHILE 1 DO 
: 260 28 BEGIN 
; 261 Q : 
; o¢ o rs : Open the file to be loaded. 
. } 4 . 
re: 8 ¢ ptatus mom_cpenloadfile (); 
3 28 0264 ' Load it. 
: 26 0265 : 
; 268 0 96 IF .status THEN 
; 269 8 67 4 BEGIN 
; 270 68 4 : 
3; e71 0 $? & ! Log event for load requested. Responding to a multicast load request 
3 Lf: 0270 4 ! from the target, however, don't tog the event. It's not reasonable 
3 6a 0271 4 ! for every node on the target's NI to log events. Only the host that 
; a 8 Ie ? } performs the load will log them. 
; re 0274 4 mom$gw_evt_code = evc$c_nma_als; ! Event code (automatic service) 
3; a 0275 4 monty evt peer = evc$c_nma_pser_loa; 
; 278 0 1 4 mom$log_event (0,0); 
3; ery 0277 4 
; 280 8 78 4 : 
; 281 79 4 ! Output the trace message. 
; Hf 0280 4 : 
; 28 0281 4 sonSdebus txt (dbg$c_srvtrc, 
; Be 3 Ht 5 (SEL CTONEU -mom$ab_service_data Csvd$gk_pcno_sty, svd$l_param] OF 
; 286 0284 é nma$c_soft_secl]: SASCID (‘Loading secondary bootstrap.'); 
; 287 0285 nma$c_soft_terlJ: SASCID (‘Loading tertiary bootstrap.'); 
; 288 0286 nma$c_soft_osysJ: SASCID (‘Loading operating system.'); 
; 44 44 TES) 
: 531 5 a ' | 
; § $0 2 SeLECIOeY -mom$ab_service_data Csvd$gk_pcno_sty, svd$l_param] OF 
3 294 3 & 
: 295 93 4 Cnma$c_soft_secl]: 
r 39 94 4 status = mom_secload (loadflag, msgdsc); 
; @& 95 4 
; 8 38 & COTHERWISE): 
3; 299 97 4 
: 300 38 4 
; 301 4 TES; 
3; 362 00 4 ! 


status = mom_mblkload (loadflag, msgdsc); 
| 


— 


oOo 
WI OOO NOME OO NOR ODS Vw 


SSeS 


NOuswn—0o0 


Ft te 


PPPS 
OWONOAULS WN OO 


Be Se Se Se Se Se Se Se Ge Se Se Ge Fe Se Ge Se Se FH Se Ge Fe Ge Ge FH Se Ge Be Ge Se Ge Ge Ge Ge Se Se Ge Se Se Se Se Se Se Se Se SH Se Se Se Se Se Se Se Se Se Se ee ees 


OOOCCCOCCCOCOCOOCOCOOCOoOo 


AANA NINI AWA AAAI AIA AWA 


SEF 


SOOOOOOCOSOSOSOCOOOOOOSOOCOCOSSOOCSCOOOOOOCOOOOOOOoO 


X-11 Bliss-32 V4. 
SKSVMSMASTER: CMOM 


Close the load file. 
mom$srvc lose 0; 
IF .status THEN 

BEGIN 


; Log the file that was loaded. 


mom$debug txt ( dbg$c_crvtre 
(SEL CTONEU -mom$ab_service_data Csvd$gk_pcno_sty, svd$l_param] OF 


nma$c_soft_osys]: $ASCID (‘Operating system loaded.'); 
nma$c_soft_terlJ: SASCID (‘Tertiary bootstrap loaded.'); 
poeesc sort sect : SASCID ("Secondary bootstrap loaded.'); 
: 
The load is complete if the operating system has been loaded. 


if .mom$ab_service_data Csvd$gk_pcno sty. svd$!_param] 
EQLU nma$c_Soft_osys THEN 


BEGIN 
mom$ab_msgblock pasbst. flags] = 0; 
mom$ab_msgblock [msb$b_code] = nma$c_sts_suc; 
EXITLOOP; 
' e 
Log “‘load successful" event for the secondary or tertiary loader. 


mom$gb_evt_pser = evc$c_nma_pser_loa; 
moms og_event (4,UPLIT (BYTE (nma$c_sts_suc, %X'ff', %xX'ff", 0))); 


i Parse the received MOP message to get information about the © 
next load attempt. 


-msgdsc (0); 


mom$ab_nparse_bLk Cnpa$t msgcnt] = 
npa$l_msgptr] = .msgdsc (1); 


mom$ab_nparse_blk 
status = nma$nparse (mom$ab_nparse_blk, mom$npa_mopload); 


If_the load failed on the first message then there are two cases: 
The load was an NI multicast load request, and some other host responded 
to the target first. So, give up now. / 
Otherwise, trigger the target's bootstrap and try the load again. 
F NOT .status THEN 
BEGIN 
IF ‘out ! gervice_tlegs Cmom$v_ni_multicast] THEN 
IF SeatiGe THEN 
BEGIN ; 
loadflag = false; ! No more retries 
mom_load_trigger (); 


0 reg Page 
«SRC JMOMLOAD.B32; 1 (3 
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— 


N 13 
Network Management Down Line Load Routines 16-Sep-1984 02:03: VAX-11 Bliss-32 V4.0-74 e 
mom$ load Pefiors a downline system load 13-808- 1382 05:07:43 DISKSVMGHASTERSCMOM SRCSMOMLOAD.B32:1° 7° (3 


M 
V 


H 2 5 END 3 
; & ELSE : 
; 6 2 EXITLOOP; : 
; 6 END $ 
3 6 LSE 3 
; rt: loadflag = FALSE; : 
; END; : 
; ¢9 : : 
; o8 H Return status. : 
3 % gonsbld_reply (mom$ab_msgblock, msgsize); . 
3 q} Ssignal-msg (mom$ab_nice_xmit_buf, .msgsize); : 
: 0398 1 END; ! End of mom$load ; 
«TITLE MOMLOAD Network Management Down Line Load Routi : 

nes : 

IDENT \v04-000\ : 

-PSECT SPLITS,NOWRT,NOEXE,2 : 

0000060A 00000 P.AAA: .LONG 1546 : $ 

00000000" 00004 ADDRESS MOMST_LOADBUFFER : : 

00000600 00008 P.AAB: .LON 1 : 3 

00000000° 0000C -ADDRESS MOM$T_READBUFFER : 3 

6— 6F 63 65 73 3! 67 6€ 69 64 61 6F 4C 00010 P.AAD: .ASCII \Loadifng secondary bootstrap.\ 3 : 

2 70 61 72 74 73 76 6F 6F 62 20 79 72 O001F : $ 
0000001C Q002C P.AAC: .LONG 28 : 3 

; 00000000" 00030 -ADDRESS P.AAD - 3 3 

69 74 72 65 74 9 67 69 64 61 6F 4C 00034 P.AAF: .ASCII \Loading tertiary bootstrap.\ : ’ 

2 70 61 72 74 73 74 6F 6F 62 20 79 re : : 

00000018 +f 4 P.AAE: .LONG 27 3 3 

00000000° 00054 -ADDRESS P.AAF ; 3 

61 72 65 70 6F 20 67 $f 69 $f 61 6F 4C 00058 P.AAH: .ASCII \Loading operating system.\ 3 : 

2— 6D 65 74 73 79 73 20 67 GE Boe! 3 : 

0071 -BLKB 3 3 

44's 84 Bate P.AAG: .LONG 25 : $ 

oppooge" 078 -ADDRESS P.AAH : : 

73 79 73 20 67 6E 69 74 61 72 65 4F QOO7C P.AAJ: .ASCII \Operating system loaded.\ 3 | F 

2E 64 65 64 61 6F 6C $° 6 4 3 : 

68 00 P.AAI: .LONG 24 : | 3 

92900 , Babee -ADDRESS P.AAJ 3 3 

74 6F 4 62 20 79 72 61 69 74 3 6 4 QOO9C P.AAL: .ASCII \Tertiary bootstrap loaded.\ 3 : 

64 65 64 61 6F 6C 20 70 61 72 QO0AB 3 3 

p88 -BLKB : 

944 49 F 0B8 P.AAK: .LONG 6 3 | : 

: a 0 ‘ bes -ADDRESS P.AAL ; 3 

6F 6F 62 20 79 72 61 64 3 6F 63 § OCO P.AAN: .ASCII \Secondary bootstrap loaded.\ : | 3 

2E 64 65 64 61 6F 6C 20 70 61 72 74 seb : 3 

O08 BLKB 1 | ; 

tidy OODC P.AAM: .LONG 27 : $ 

sat ae P ° -ADDRESS P.AAN ; : 

00 FF FF 1 OE4 P.AAO: .BYTE 1, 1, 14. @ : : 


mom$load Perform a downline system load 


.PSECT SOWNS,NOEXE,2 
00000 MOMSL_BASEADR: 
00004 MOMSL_BLKCNT: 
00008 MOMSL LOADSIZE: 
0000¢ MOMSL_ TRANSFER: 
00010 MOMSW_PGHDETAIL: 


mn fF FF 


00012 -BLKB 
00014 MOM$SW_FIRST LOAD FRAME: 


-BL 
00018 MOMST_CC_WRAP_BUF : 
“BLKB~ 1536 
00618 MOM$T_LOADBUF FER: 
-BLKB 1546 


90¢32 -BLKB 
00000000 00C24 MOMSO_DATADSC: ‘ 
00000000" 0028 “ADDRESS MOMST_READBUFFER 
MOMST_READQUFFER= | MOMST_LOADBUFF 
P.AAA 


MOM$Q_LOADBFDSC= 
a P.AAB 


N 
N 
TRN MOMSAB = MO 
XTRN MOM$GW7EVT~ CODE 
TRN 
N 
N 
N 


GB"EVT~P 
MOMSGB-EVT-PSER 
SVD$GK~PCNO_ADD 
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ER+6 


.EXTRN MOMSGL LOGHASK, MOMSGL_SVD_INDEX 


-EXTRN MOMS$AB_SERVICE D 
-EXTRN MOM$GB_FUNCTI 
-EXTRN MOM$GB_OPTION_BYTE 
-EXTRN MOMSGB_ENTITY_COO 
-EXTRN MOMSAB_ENTITY_BUF 
; -EXTRN MOMSGQ_ENTITY-BUF _DSC 
-EXTRN MOMSGL_SERVICE FLAG 
-EXTRN MOMSAB_NPARSE BLK 
-EXTRN MOMSAB_NICE_RCV_BUF 
-EXTRN MOMSAB_NICE_XMIT_BUF 
-EXTRN MOM$GQ_NICE_RCV_BUF_DSC 
-EXTRN MOMSGL_NICE_RCV_MSG_LEN 
«EXTRN MOM$GQ-NICE-XMIT_BUF_DSC 
-EXTRN MOMSAB_MSGBCOCK 
-EXTRN MOMSAB_ACPQIO_BUFFER 
-EXTRN MOMS$GQ-ACPQIO-BUF_DSC 
-EXTRN MOMSAB_CIB, MOMSAB_LOOP_CIB 
-EXTRN MOMSAB-TRIGGER_CIB 
-EXTRN MOMSAB_MOP_XMIT_BUF 
N MOM$GQ"MOP_XMIT~BUF_DSC 
$AB RCV_6UF 
CV"BUF 


DSC 
A$GQ_MOP_MSG_DSC 


-_ 


me Ue 


se 
oOo 
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yoerb00 mom$ load Perform a downline system load 1e-sep-19 4 3:03:43 DISKSVMSMASTER:CMOM. sre MOMLOAD .832; a ed) 
1RN SVD$GK_PCNO_SDV 

Thee SVD$GK-PCNO CPU 

j 


NT 
“EXTRN MOM$_ONSMOPDEV, MOMS_IMGRECSIZ 
“EXTRN MOMS~ INVCCFIL *MDTSGR_MOPDEVCNT 
*EXTRN MOMSAB_MOPDEV E 
“EXTRN MOMS$GQ~TIME our MOMSNPA MOPLOAD 
“EXTRN NMASNPARSE, MOMSBLD_REPCY 
EXTRN nonsBL DROPEo OF ROMSBL DROPPLT 
“EXTRN MOMSCHK 
“EXTRN MOMSDEBOG TRT MOMSERR 
“EXTRN MOMSINIT CIB, MOMSLOG OVENT 

EN, HOMSMOP PSNDRCV 


$M HOP 0 
“EXTRN MOMSMOPSETSUBSTA 
[EXTRN MOMSSRVCLOSE, MOMSSRVOPEN 
*EXTRN ROMS SRVREAD * MOMSSRVREWIND 
“EXTRN MOMSSRVWRITE 
.PSECT $CODE$,NOWRT,2 


OFFC 00000 ENTRY MOMSLOAD, Save R2.R3.R4.25,R6.R7.R8.R9.R10,-; 0188 | 


$B 000000006 EF 9 00002 MOVAB MOMSGL_SERVICE_FLAGS, R11 : : 
5A 00000000G EF 9E 00009 MOVAB MOMSDEBUG_ TXT, R10 5 


Network Management Down 
Perform a downline system load 


000000006 


000000006 


00000000v 


000000006 


ine Load Routines 


gQvnooooo0ono 
WOMrommmmmmmemern 


OOoQoQooooooooooooooooooooooo 


SOoOOCOOCOOCOOOOCOOOOOOCOOOoOOoOooO 


Coooooc[ecoo 


MOONY QO MNFOMV10H0O MONCOVWwOoOSOO MOMOWWMWDOOCOWOOEA| —Mmmmmmmmm 
FAIA OWS $$ NOOO" WROOWM BMOWNOO-OW RAL TH HUW —LOvr yl D MOT HHH Hn 


onmoo 0-0 —90—-90 0-9-0 OTNNVOOMO"OT ONVCVTVIVTO™"VOOTNO- "OOM 
OowmogoMm MW SO MMS MM OBDOLOWOoOWoIn wnmoocVTVTVTWcCVTCWCo-aco"o 


SOOooooooooooooooeo COOCOOCOOOCoOOoOO 


Cooooocoo 


SSS 
i F-F+$3 


SCOOoooooooooo SSSSsssssss 
DOS HSNIMO ONL 


0000 7$: 


Z AQEOOOOOoOWWWwwW 


bons 


D 14 
6-Se 
4-Se 


1$: 


4$: 


5$: 
6$: 


384 93:03:13 AX-11 Bliss-32 V4.0-74 page 


ISKSVMSMASTER: (MOM. SRC JMOMLOAD.B32; 


MOM$LOG_EVENT, R9 
MOM$GB_EVT_PSER, R8 
MOM LOAD TRIGGER, R7 
MOMSMOPSETSUBSTATE 
MOMSAB_MSGBLOCK, R5 


MOMSAB_CIB, R4 


R6 


$. (FP) 
MOMSGL_SERVICE_FLAGS, 1$ 
" MSAB_CIB 
2. MOMSMOPSETSUBSTATE 
RG 
#1, MOMSMOPOPEN 
" MSAB_CIB 
#2, MOMSMOPSETSUBSTATE 
#SVD$GK_PCNO HWA 


#SVD$GK_PCNO_ADD 
#SYDSGK_PCNO_PHA 


R4 
#5, MOMSINIT C 
<<MOMSAB_SERVI 
3” 

#0, MOM i ea, 


LO 
#0, MOM_OPENLOADF ILE 
STATUS, 11$ 

#3, MOMS$GW_EVT_CODE 
MOMSGB_EVT_PSER 

#2, MOMSLOG_EVENT 
<<MOMSAB_SERVICE_DATA+<SVD$GK_PCNO_STY*137/>=; 
>+9>, RO 

P.AAC, R1 
5$ 

RO, #1 


P.AAE, R1 
R1 


IB 
CE_DATA+<SVD$GK_PCNO_STY*137>- 


DR 
oo— 


8 

Bn 
#1, =(SP) 
P.AAG, RO 


RO 


# 

*, MOMSDEBUG_TXT 

S<QOMSAR SERVICE _DATAS<S¥DSGK _PCNO_STY9137>~3 
>+9>, R : 


Sete Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se & 


1 
(3 


0286 


0281 
0290 
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A Network Management Down Line Load Routines 18-Sep-1 4 :03: VAX-11 Bliss-32 V4.0-74 Page 13. mC 
Yee mom$ load Perform a downline system load 1 730071382 96:03:43 DLEKSVMGHASTERSCMOM SRC SMOMLOAD.832:1 ° dy ve 
OF 12 000E2 BNEQ 9S ; 9298 : 

10 AE 3 £4 PUSHAB MSGDSC + 0294 : 

04 AE F OO0E7 PUSHAB LOADFLAG : : 

00000000v EF é re EA CALLS ‘ MOM_SECLOAD : : 
10 AE 3 F3 9S PUSHAB MSGDSC + 0297 : 

04 AE OF re PUSHAB LOADFLAG : : 

00000000v_ EF Q FB OF CALLS #2, MBLKLOAD : ; 
2 D 190 10$: MOVL RO, STATU : : 

000000006 EF 9 FB 19 CALLS #0, MOMSSRVCLOSE + 0303 ; 
E9 OO10A 11$:  BLBC STATUS, + 0305 ; 

50 00000000" EF D0 0010 MOVL <<MOMSA _SERVICE_DATA+<SVD$GK_PCNO_STY#137>=: 0311 : 

02 50 01 00114 CMPL =e RO, 2 + 0313 ; 

06 12 O17 BNEQ 1 : ; 

51 68 A 95 119 MOVAB P.AAI, R1 : ; 

OA 11 0011D BRB 13$ : ; 

01 0 01 OO11F 128: CMPL =s RO, #1 + 0314 ; 

09 12 00122 BNEQ 4 : ; 

51 008C C3 9E 00124 MOVAB P.AAK, R1 : : 

51 DD 00129 13$:  PUSHL Ri : ; 

10 11 00128 BRB 16$ : ; 

50 b3 012D 14$: TSTL RO + 0315 ; 

05 13 0012F BEQL 15$ : ; 

7E 01 CE 00131 MNEGL #1, <(SP) : ; 

07 11 00134 RB 16$ : : 

50 0080 C3 9E 00136 15$:  MOVAB. P.AAM, RO : : 

50 DD 00138 PUSHL RO : ; 

88 DD Bote? 16$: PUSHL #6 : 0310 5 

6A 02 FB 0013F CALLS #2, MOMSDEBUG_TXT : F 

02 00000000* EF 01 00142 CMPL <<MOMSAB_SERVICE_DATA+<SVDSGK_PCNO_STY#137>~; 0322 : 

08 12 00149 BNEQ 17$ : ; 

a] ps 00148 CLRL § MOMSAB_MSGBLOCK : 0324 ; 

04 AS 01 90 $3140 MOVB #1, MOMSAB_MSGBLOCK+4 ; 0325 ; 

3F 611 00151 BRB : 0325 : 

68 94 00153 17$: CLRB  MOMSGB_EVT_PSER > 0331 : 

0088 C3 OF 00193 PUSHAB P.AAO : 0332 : 

04 pd 00159 PUSHL #4 : : 

69 02 FB 00158 CALLS #2, MOMSLOG_EVENT : F 

000000006 EF 10 AE 7D 0015€ MOVG = MSGDSC, MOMSAB_NPARSE_BLK+4 : 0337 : 
000000006 EF 9F 00166 PUSHAB MOMSNPA_MOPLOAD : 0340 : 

000000006 EF 9F 0016 PUSHAB MOMSAB_NPARSE BLK : : 

000000006 EE FB 1 CALLS #2, NMASNPARSE : : 
2 dO 001 MOVL R TUS : : 

O€ 32 E8 0017C¢ BLBS STATUS, 19$ : 0350 : 

OF 68 34 Our 18$: BBS #5, MOMSGL_SERVICE_FLAGS, 21$ + 0352 : 
0c 6— £9 00183 BLBC LOADFLAG, 21$ > 0354 : 

6E D4 001 CLRL_ —LOADFLA : 0356 : 

67 0 FB 1 CALLS #0, MOM_LOAD_TRIGGER : 0357 ; 

2 1 1 BRB : 0354 : 

6 D4 0018) 19$: CLRL OADFLAG : 0364 : 

FEFE 31 O018F 08: BRW ; 097 : 

04 AE OF 001 : 1$:  PUSHAB MSGSIZE : 0370 3 

000000006 EF 83 PR Sbi92 CALLS #3, MOMSBLD_REPLY : : 
04 AE ODD 19¢ PUSHL MSGSIZE ~~ : 0371 : 


F 14 
MOMLOAD Network Management Down Line Load Poutines 16-Sep-1984 0 05:13 VAX-11 Bliss-32 V4.0-74 Page 14 ve 
v04-000 mom$load Perform a downline system load 14-Sep-1984 12:44:3 DISKSVMSMASTER:CMOM.SRC JMOMLOAD.832; 1 (3) 
899000006 F OF 1A1 PUSHAB $48 NICE_XMIT_BUF ; 
F DD QO1A7 PUSHL #34015T84 : 
000000006 00 3 FB QO1AD CALLS #3, LIBSSIGNAL 3 
ge 1B4 RE : 0373 
0000 183 228: «WORD Save nothing : 0205 
4 D4 0018 CLRL -(SP) : 
D 189 PUSHL P 3 
7E 04 AC 7D 00188 mova (AP) -($P) : 
00000000v EF 0 FB 18 CALLS #3, MOMSLOADHANDLER 3 


; Routine Size: 455 bytes, Routine Base: S$CODE$ + 0000 


:; 376 0374 1 


mom_load_trigger 


wn 


Network Management Down Line Load Routines 
Trigger target node 


ZSBTTL ‘mom_load_trigger 
ROUTINE mom_load_trigger = 


A 
~~ 


~~ 
COLE P OCR NO 


+e 
; FUNCTION. DESCRIPTION: 


VAX-11 Bliss-32 V4.0-74 


§ Pa 
DISKSVMSMASTER: CMOM. SRC JMOMLOAD.832;1 


Trigger target node’ 


S$ routine sends a boot message to the target system and 
arses the MOP message sent in response to the boot message. 


wo channels to the 


I are used: one to send the boot message 


using the remote console protocol, and one to receive the response 


whic 
FORMAL PARAMETERS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


COOQGOCGOCCOCOOOCOCOCCOOOOCOCOO 


SSLSLEANLESE 


Signal errors. 


BEGIN 
LOCAL 


SSESESESLES 


FRLAIIS 


ooo 


wr 


SIESEANLS 


3 


save_service timer, 
xmit_CIB : REF BBLOCK, 
rev_CI1B : REF BBLOCK, 
snddsc : VECTOR . 
msgdsc : VECTOR 
msgsize, 

status; 


rcv_CIB = mom$ab_cib; 
xmit_CIB = mom$aB_c ib; 


—> ss as ss 4 1 
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Get a channel to the NI on which to send the boot message to the target. 


will be sent using the load/dump protocol. 


This channel is necessary because the boot message must be sent using the 


remote console NI protocol. 
will be sent to the load/dump NI protocol. 


if -monSql_service_ flags Cmom$v_ni_circ] THEN 
BEGI 


The response ‘load me’' message from the target 


' Channel Information Block addr 
' Function = tri 

' NI physical ad 
Node address o 
! NI hardware address of target 


qger 
ress of target 
arget 


' 
Build the trigger (old ‘enter MOP mode’, new ‘boot') message. 


mom$bldmopboot (snddsc); 
mom$det~ txt (sbgee srytrc, 
S$ASCID (‘Triggering remote bootstrap')); 


- 
o 
. 
. 
. 
a 
. 
. 
- 
oO 
. 
2 
. 
. 
. 
. 
. 
. 
. 
- 
. 
e 
= 
7 
. 
. 
. 
a 
. 
. 
. 
2 
- 
eo 
. 
os 
* 
o 
. 
7 
. 
. 
. 
~ 
a 
. 
on 
7 
e 
. 
° 
7 
. 
7 
. 
. 
~ 
~ 
. 
. 
. 
7 
~ 
o 
. 
cm 
. 
. 
. 
o 
- 
o 
. 
. 
a 
. 
o 
o 
. 
a 
- 
o 
. 
o 
* 
os 
. 
. 
. 
2 
7 
o 
- 
. 
. 
o 
7 
. 
. 
o 
. 
. 
o 
. 
. 
. 
. 
- 
. 
. 
o 


Q 


y at at at et et et pt 
or 
-—-oO wn 


GG 


46 


14 | 


H 
Network Management Down Line Load Routines 16-Sep-1984 02:03: VAX-11 Bliss-32 V4.0-74 P 16 
aon, load. trigger Trigger target node 12280871382 95:02:43 DISKSVMSMASTER: CMOM. SRC MOMLOAD.B32;1° > (4) | 
: Use an extra long timeout period because the PLUTO self test (which it | 
goes through for every boot) takes a while. 
435 2 xmit_C1B CcibS\retry_cnt] = 2; 
save-seryice tifer = ~mom$gq_timeout (0); 
mom$9q_t goaut C 3 = ,mom$gq_timeout [0] * 10; 
3 msgdsc id=. gq_mop_rcv_buf_dsc (1J; 
44 i Send the boot message and listen for the target's response. It should be 
rr } a Program Load Request. 
4 Status = momSmopsndrcv (.xmit_CIB, snddsc, 
444 -rcv_CIB, mom$gq_mop_rcv_buf_dsc, 
45 msgdsc (0), 
rh 0); ! Don't skip program load requests 
4 mom$c hk nop.error (.status); 
48 mom$gq_ftimedut [0] = .save_service_timer: 
ae 
0451 i Parse the returned MOP message to make sure it's a valid Program Load 
bees } Request. 
0454 mom$ab_nparse_bLk frpast msgcnt) = .msgdsc fo : | 
tH mom$ab_nparse_blk [npa$l_msgptr] = .msgdsc (1); 
28 status = nma$nparse (momSab_nparse_blk, mom$npa_mopload); 
045 IF NOT .status THEN 
Be38 BEGIN 
5 gouseld_repty (mom$ab_msgblock, msgsize); 
Reee Ssignal msg mom$ab_nice_xmit_buf, .msgsize); 
6 ° 
te : Deassign the MOP channel used to send the boot message. 
0465 2 IF .mom$gl_ service flags Cnon$y ni circ] THEN 
C4 SDASSGN (CHAN = .xmit_CIB CéibSt_chan]); 
046 RETURN .status; 
0468 1 END; ! End of mom_load_trigger 
-PSECT S$PLIT$,NOWRT,NOEXE,2 
6F 6D 65 72 20 67 6E€ 69 72 65 67 67 69 ie 3 QOOOES8 P.AAQ: .ASCII \Triggering remote bootstrap\ 3 
70 61 72 74 73 74 6F 6F 62 20 6 4 Beene 3 | 
0103 -BLKB 1 
00000018 Bates P.AAP: .LONG 27 : | 
00000000° 00108 . ADDRESS P.AAQ : | 
-EXTRN SYSSDASSGN 
-PSECT SCODES,NOWRT,2 
OOFC 00000 MOM_LOAD_TRIGGER: 
7 A Save R2,R3,R4,R5,R6,R7 ; 0376 
$7 0 G EF 9€ 9002 MOVAB MOMSAB_CIB, R? : 
g G EF 9€ 000 MOVAB MOMSGL_SERVICE_FLAGS, R6 : 
5 0 G EF 9€ 00010 MOVAB MOM$GQ_TIMEOUT, R5 3 
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VO4=000 


3; Routine Size: 


Network Man 
mom_load_tr 


2D 


000000006 
09 


250 bytes, 


; 


gement Down Line L 
gger Trigger tar 


3 0000 


000000006 EF 
8 


0000 


000000006 _ EF 
00000000G_ EF 


seneas : EF 
1 


6 
08 AE 0000 


0000 


000000006 4 


000000006 
000000006 
0000 


0000 
000000006 3 
2 


0000 
00000000G_ EF 


0207 
66 
000000006 98 


Routine Base: 


oad Routines 
get node 


1 
1 
14 17 
$6 gan 
# H i 
0000G EF be "| 
sos $f iB one2 
ste eo 
soe Fe Be 
5 DD Boas 
0c AE OF 00s! 18: 
000" FF 9F G0055 
fF 9494 
08 006A 
€5 b0 Gpoce 
ovo0s FF 90 G0074 
wo8he BE 3 Beart 
Ef 3 00087 
1¢ ag F 00089 
5 DD 0008C 
6 fe 008 
30 ) 39 
$3 bo Gooa6 
a 
04 AE D OO0A4 
0000G EF 9F OA 
0000G EF ve 3 
6 09 e 
EL. 
00006 fF oF a 
«SF BP 80008 
mm : 
1 fe E9 2$ 
0D ° ED 
oS RE 
BB 900r6 


SCODES + O1C7 


1 
pol 


Be 18:04 


1; VAX-11 Bliss-32 V4.0-74 
: DISKS$V E 


MSMAST 


u 

XMIT_CI 

#5, MOMSINIT_CIB 
SNDDSC 


#1, MOMSBLDMOPBOOT 
P. AAP 


# 
a3. SDEBUG_TXT 
#2. 18(XMIT_C 
MOMSGQ_TIMEOUT, SAVE_SERVICE_TIMER 
#10, MOM$GO_ TIMEOUT 
MOMsGO_MOP_RCV_BUF_DSC+4, MSGDSC+4 


MSGDSC 
MOM$GO_MOP_RCV_BUF _DSC 
RCV. CIB 


tat on 
#6, POMSMOPSNDRCV 
hh STATUS 


“i, SCHK_MOP_ERROR 
SAVE_SERVICE_ TIMER, MOM$GQ_ TIMEOUT 
MOMSAB NPARSE_BLK+% 


is 

ae APARSE BLK 

RO, STATUS 

STATUS, 3 
SAB_MSGBLOCK 

a 

MSGS 


MOMSBLD_REPLY 
12E 


$AB_NICE_XMIT_BUF 
acts Te 
#3, LIBSSIGNAL 


#1, MOMSGL_SERVICE_FLAGS, 3$ 
(XMIT_CIB) 

#1, SYSSDASSGN 

STATUS, RO 


vt 
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k load Perform general multiblock lo 1 =3007 1382 ast} DISKSVMSMASTER: CMOM. SRC JMOMLOAD.B32; 1 ™ (5). 


. 
35 
es 


oc” 
“= 


: 473 1 ZSBTITL ‘mom_mblkload Perform general multiblock load’ ‘ 
; 474 § 1 ROUTINE mom_mblkload (loadflag, asedse) = | 3 
He hd es i 
; ai 73 1 | FUNCTIONAL DESCRIPTION: | ; 
; re 75 1: This routine performs @ general multiblock system load. It is | ; 
; 4 6 1! used to down-line load the tertiary loader and the operating $ 
: : 1 4 : } system images. : 
; 4 : 15 | FORMAL PARAMETERS: ; 
: 485 1 13 LOADFLAG Address of load retry flag (TRUE=>if load failed F 
; rt4] ¢ 1; it failed on the first message exchange) . 3 
; rt 0% : } MSGDSC Address of descriptor for received MOP message. : 
: 489 5 1 | ROUTINE VALUE: ; 
; re 0% ! COMPLETION CODES: : 
: 49 B81: Signal errors. ; 
; 49 489 1! ; 
; 494 90 1 !<- : 
; 495 491 1 , : 
; 4% 84 BEGIN é 
ae : 
: 499 0495 msgdsc : REF VECTOR; ; 
: 30 oc99 
; 206 R638 PLT_response; 3 
; 04 0500 2 LOCAL ; 
: 5 0501 status, 3 
: 306 B208 snddsc: VECTOR (2), 3 
; 507 050 lLoadnum, F 
; 508 0504 skip_msg_dsc_addr; 3 
: 316 0806 5 BIND 
: 11 0307 PLT_response_dsc = UPLIT (2, PLT_response); 3 
: ig $809 msgdsc [1] = mom$ab_mop_rcv_buf; F 
He Be : 
: \$ 0312 i Send the load file to the target, a frame at a time, getting a response ; 
, >) 51 ! from the target for each frame. If loading the console carrier code, the : 
3 319 218 H file format is different. : 
; 0 318 monSu_tirst_Load. frane = 1; F 
; 521 51 IF .mom$gl_Service_flags Cmom$v_console_carrier_load] THEN 3 
: § 218 nes? = mom_load_cc_file (cloadflag, .msgdSc, loadnum) : 
: 524 520 status = mom_load_sys_file (.loadflag, .msgdsc, loadnum); 3 
3 5 521 If NOT .status TREN 3 
: $ 3 § RETURN .status; ; 
: 8 524 i The load is successfully finished. Build the Parameter Load with Transfer 3 
3 9 525 ! address (PLT) message. This message tells the target what address to start : 


eee 


FUSVISISISI SII 
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WONAULSWN —“OVOONOUS WhO 


SISALAVLS 
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anagement D Li Load Routi 16-Sep-1984 :03: -74 P 1 
° rters general auitiois 12-808- 1382 93:03:43 CMO SRCIMOMLOAD.B32:1°°" (5 


i 

_mblk load Perform general multiblock lo p 

§ : executing the image just loaded. 

| momSbidmopplt (snddsc, .loadnum, .mom$l_transfer); 
4 

5 


Dw 
eo MJ 
<= 


9 
) 


] 
! The newer NI loaders return a Mgguect Memory Load message (with the load 
! number = the last load frame + 2) as an acknowledgment to the Parameter 

! Load with Transfer (PLT) message. In the case of the tert ary. set up to 
: skip over this message and keep looking for the request for the operating 
; syeten, In the case of the operating system, receipt of the RML indicates 
H that the load is complete. 

I 


F .mom$ab_service_data (svd$gk_pcno_sty, svd$l_param] EQL 
nma$c_soft_terl THEN 


BEGIN 

PLT_response <0,8> = mop$_fct_rml; z 

PLT“response + { <0,8> = sloadnum + 1; 
skip_msg_dsc_addr = PLT_response_dsc; 


PUPVPVSUSVSUSVSUSISISISI SITIOS 


, a ee 


AUS UNO OONAUE WN OO OONOAUE WOO 


skip.nsg dsc_addr = 0; 
DECR retry FROM & TO 0 DO 
BEGIN 


status = mom$mopsndrcv (mom$ab_cib, snddsc, 
mom$ab_cib, mom$gq_mop_rcv_buf_dsc, 
msgdsc ‘ 
-Skip_msg_dsc_addr); 
mom$chk_mop_error (.status); 


ia response was successfully received. If it's another request for the 
! PLT | (it's really a request for the last load frame + 1), 
retransmit the PLT. 
IF (.mom$gq_mop_rcv_buf_dsc [0] LSS 2) OR 
(,.mom$ab_mop_rcv_buf <0,8> NEQ mop$_fct_rml) OR 
(.mom$ab_mop_rcv_buf+1 <0,8> NEQ .loadnum) THEN 
EXITLOOP: 
status = failure; 
RETURN .status 


END; ! End of mom_mblkload 


-PSECT S$PLITS,NOWRT.NOEXE ,2 
tie QO10C P.AAR: .LONG 2 
00000000" 00110 -ADDRESS PLT_RESPONSE : 
-PSECT SOWNS,NOEXE,2 


00C2C PLT_RESPONSE: 
.BLKB 


4 
PLT_RESPONSE_DSC= PAAR 


&2 


vO4=000 


; Routine Size: 


Betuers Management Down Line Load Routines 
Perform general multiblock lo 1 


mom_mbi kload 


04 
10 000000006 


00000000Vv 


00000000v 


000000006 


0c18 


0C19 §=6C6 


000000006 


000000006 


50 


196 bytes, 
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68 
FB 
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61 00000000 
C6 
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5§ 00000000" 
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6E 
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Routine Base: 


14 


FOWWM BMMWO NHS NOOO DANA 


op neTSSz COOOrFrWOOe rOMmmmmm 


wmm 


MWUIMOVNOOH $$ SHOVIiowriS MNVNVOUIOMOO— 
FW NO Mh NWO FOP OMOOL LS VV Pe wT 


sus 


oO 
Ooo 
wn 


oOo ooooocoo 

oS SOoOOoOoooooooo 
QOOoumumurvui 
co—rmw oo 


SOOOooooooooooooso ooooceo 
OF>NVMWOO—n 


P >> RSSSSRR ISSA S TS 
Commo 


FOLENS O “DWI OWO *VOWOL-M—oNw —-W "OC OCOWl®@—-wWl@—OMmorommm 
SOOOoCoOoOoooooooooo 


SOooooooooooooooooooooooooo 


oo "9 $90 O-9O NTO NO OT TOTO - 000 _- oO MOVUOMO TOD - "VAM OVCVFOoOo 


SCODES + 02C1 


it 


Sep-19 
-Sep-19 


2$: 


Mw 
AAW 


Be 18:84 


»PSECT 


O3FC 00000 MOM memes 


13 VAI! Bliss=32 v4.0-742 Page 
DISKSVMSMASTER:[MOM. SRCIMOMLOAD.832; 1 
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MOMS$AB-MOP~RCV R 
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malt CUR 
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nSAB-nOP FIRST _LOAD_FRAM a 
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#3. AO MOM LOAD_CC_FILE 
#°M<R2,SP> 
LOADELAG 
#3, MOM_LOAD_SYS_FILE 
RO, STATUS 
US, 6$ 
MOMSL TRANSFER 
SNDDSC 


#3, MOMSBLD 
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Bete Se Ge Se Ge Se Ge Ge Ge Fe Se Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Ge 


#10, Pur RESPONSE 
OADNUM, PLT_RESPONSE+1 
Pit LP ePONee _DSC> SKIP_MSG_DSC_ADDR 


SKIP_MSG_DSC_ADDR 
#4, RETRY 
#°M<R2, R5> 
R8 
Rg 
SNDDSC 
#6, MOMSMOPSNDRCV 
RO, STATUS 
STATUS 
#1, MOMSCHK_MOP_ERROR 
MOMSGQ MOP JRCV _BuF DSC, #2 
MOMSAB_MOP_RCV_BUF, #10 


MOMSAB MOP_RCV_BUF, RO 
ng. DNUA 
ST TATUS 
RETRY, 5$ 
STATUS, RO 
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ZSBTTL ‘mom_load_sys_file Perform load of system code’ 
ROUTINE mom_load_sys_file (loadflag, recv_msg_dsc, final_loadnum) = 


lee 
! FUNCTIONAL DESCRIPTION: 


This routine perieree a multiblock system load of systen 

code. The file format system snoges is different than that 
for console carrier (see next routine). The image is loaded 
into the targets memory cont tpuoust » $O there is only an 
eccrese (suppl ed in the file header) specifying which address 
to begin loading the image. 


FORMAL PARAMETERS: 
LOADFLAG 


. 


X-11 Bliss-32 V4.0-74 Pp 
SKSVMSMASTER: CMOM. SRC MOMLOAD.B32:1° 9" (BS 


~~ 
aw 


~~ 
uw 


NNO O 
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Tee Te TOC Tee TE CeCe EEE eee eee eee ree eee TST ec ierTe rere rerererereiererererere reine 
oa Sao 
oO essc 
~ wn 
SESSS333 
COoowuwowowowvwn 
RII IPIPIPIPIMIPIPIPININIMIPIPINIMIPIPININI|NIN INI INI INIA ad a i dd dd 


Address of load retry flag (TRUE=>if load failed 

‘ t failed on the first message exchange). 
RECV_MSG_DSC Address of descriptor for received MOP message. 
FINAC_LOADNUM Load number of Last load frame + 1. Returned to 
caller to be used in the Parameter Load with 
Transfer Address MOP message. 


~~ 
“Oo 
OoQoooooooooooo0o: 
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ROUTINE VALUE: 


SRLESEANLESELERLAVTSSS 


05 
Beae COMPLETION CODES: 
059 Signal errors. 
059 
05 _ 
600 05 
2 BEGIN 
$5 2 : d REF BBLOCK | 
recv_msg_dsc: : 
605 6 
606 LOCAL 
bufptr, 
608 060 len, 
609 06 loadnum : BYTE, 
610 0605 lLoadblkcnt, 
06 loadbytcnt, 
0607 blocks_left, ! 64 byte blocks of data left in read buffer. 
0608 ptr, 
snddsc : VECTOR (2), 
610 status; 


LOADNUM is defined as a byte to correspond to the size of the field in the 
MOP message. This field will overflow when it gets to load number 256 so 
it will go back to zero. Overflow must be guaranteed in order for a load 
to succeed so greet care should be taken to avoid BLISS optimizations that 
could change this situation. Be especially careful if any compare or 
increment operations are modified. 


' 

i 

i 

' 

i 

i 

! 

i 

Loadnum = 0; 
Load every block in the image. 
WHILE .mom$l_loadsize GTR 0 DO 
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mom_load_sys_file Perform load of system c 14-Sep-1984 12:44: DISKSVMSMASTER: CMOM.SRC JMOMLOAD.B32;1 (6) 
BEGIN 
status = success; ! Reset the status code 


Uwn— 


Read a block (record) from the file. 
nom_readloadfile (mom$q_readbfdsc); | 
| 
| 


ESFFSSSSSSSSSOOS 
SOLVERS AS SOO 


SLTIEPESS POLLO CCS. 


; : ! Load the image block (in one or more 64-byte pieces). 

; 9 bufptr = mom$t_loadbuf fer; 

; ¢ INCR_i FROM 0 TO .mom$l_blkcnt - 1 BY mom$k_segblkcnt DO 

; Z 2 BEGIN | 
: 5 0 4 i If the data left in the read buffer is less than the MOP transmit | 
: $ Bee ? } size (MOMSK_SEGBLKCNT * 64), send the data that's left. 
; 648 ak 4 blocks_left = .mom$l_blkcnt - .i; | 
; 9 0644 4 IF .blocks_left LSS mom$k_segblkcnt THEN | 
; 650 0645 4 lLoadblKkcnt = .blocks_Tef 
; 651 0646 4 
: o26 sat 4 ? lLoadblkcnt = mom$k_segblkcnt; 

: 654 0649 4 l 

; oe7 po3e 2 ; Calculate the actual byte count of the data to be loaded. 

; 697 O65¢ 4 loadbytent = .loadblkcnt * 64; | 
: 659 0654 4 i Build the MOP memory load message in the buffer around the 

; 660 0655 4 ! jmage data. 
; 661 pe28 4 ! 
3 666 st 44 ? ptr = .bufptr; | 
; 664 0659 4 CHSWCHAR_A (mop$_fct_mld, ptr); ' Function code 

; 665 0660 4 CHSWCHAR_A (.loadnum, ptr); ! Load number 

: 666 0661 4 loadnum = .loadnum + 1; ' Increment load number 
; 667 0662 4 ptr = CHSMOVE (4, mom$|_baseadr, .ptr); | Base address 

; 668 0665 4 ptr = .ptr + .loadbytcnt; ! Skip image data | 
; 669 0664 4 

; 670 0665 4 snddsc Fi = .bufptr; | 
: on) pO68 ? snddsc 0] = .ptr - .bufptr;: 

; ers B668 ? ; Transmit the load data to the target node and receive a response. | 
: 675 Berd 4 status = mom_xmit_ load frame (.loadflag, snddsc, .recv_msg_dsc); 
ah Be i ee 
; 678 3 : 
; 4 mR 2 ; Decrement the number of blocks remaining to be loaded. 

; 681 7% 4 mom$\_loadsize = .mom$l_loadsize - .loadblkcnt; 

; 686 77 4 mom$\"baseadr = .mom$\_Baseadr + .loadbytcnt; 

3; 6 of ? bufptr = .bufptr + .loadbytcnt; 

: 685 680 3 END; | 
; 686 681 


SS 
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ive mom_load "sys tite Perform load of system c 1 ~3ep- 1986 ° 03:48 DISK KSVMGM RS CMON. O SRC SMOMLOAD. 832; 429 marsh 
; 7 IF NOT .status THEN EXITLOOP; 
: 88 § 
: 689 6 END 
: 690 685 2 .final " loadnun = .loadnum; 
; 691 6 $ RETURN .status; 
; 692 6 END; ! of mom_load_sys_file 
OFFC 00000 MOM_LOAD_SYS FILE: 
~ WORD ave R2,R3,R4,R5, gio. R7,R8,R9,R10,R11 : 0569 
58 00000000" EF 9 9000 MOV mONSL grOADS1ZE, F 
5E : ¢ Bate SUBL #8, SP : 
94 0000C CLRB LOADNUM :; 0620 
6B D5 90008 18: TSTL MOMSL-LOADSIZE 3 0624 
78 15 0001 BLEQ 6$ ; | 
55 01 DO O001 MOVL #1, STATUS ; 0627 
00000000' ef 9F 0001 PUSHAB MOMSQ READBF DSC + 0631 | 
00000000v EF 1 FB 00N1B CALLS #1, MOM _READLOADFILE : 
3 0610 CB 3 a) ¢ MOVA MOMST LOADBUFFER. BUFPTR 3 0635 
SA FC «AB 01 C3 000 SUBL MOMSL_BLKCNT, R10 3 0637 
54 Os CE 900 C MNEGL AG I : 
0 11 00 ef BRB $ ; 
59 FC AB 54 C3 00031 2$: SUBL3. 1, MOMSL BLKCHT. BLOCKS_LEFT 3 0643 
04 59 Dl 90056 CMPL BLOCKS_LEFT + 0644 
05 18 00039 BGEQ 3 
57 59 D0 90038 MOVL Patni iar, LOADBLKCNT 3 0645 
03 11 OO03E BRB 4$ : 
57 04 b0 00040 3$: MOVL ae LOADBLKCNT 3 0647 
56 57 96 8 00043 4$: ASHL LOADBLKCNT, LOADBYTCNT 7 065 
52 53 D0 00047 MOVL suéPr : 065 
82 02 90 OO04A MOVB aD (BER ; 0659 
82 58 90 0004D MOVB COKDNUM tpTR)« : 0660 
58 96 00050 INCB LOADNUM 3; 0661 
82 F8 AB 00 00052 MOVL MOMSL BASEADR (PTR)+ 3 066 
52 56 CO 00056 ADDL2 LOADBYTCNT, PTR > 066 
04 ag 53 D0 00059 MOVL BUFPTR, CENODS CSG 3 0665 
6E 5 53 ¢3 0005p SUBL3 BUFPTR, PTR, SNDDSC ; 0666 
08 AC DD 00061 Push RECV pe : 0670 | 
04 AE 9F 00064 PUSHAB DSC : | 
04 AC DD 00067 PUSHL rate : 
00000000v gf 93 FB O0GA CALLS ‘ HOM XM _LOAD_FRAME : 
5 0 00 00071 MOVL : 
13 55 €9 90074 BLBC AY Tos Ms ; 0671 
6B 57 C3 0077 SUBL LOADBLKCNT, MOMSL_LOADSIZE ; 0676 
FB ae 56 CO OO07A ADDL LOADBYTCNT, MOMS BASEADR ; 0677 
5 6 CO 0007E ADDL LOADBYTCNT, BUFPTR > 0678 | 
FFAA 54 04 A Fi 0081 5$: ACBL R10, #4, I. 2 ; 0637 
84 5 58 0087 BLBS STATUS, 1 : 0682 
oc «BC 58 9A OOOBA 6$: MOVZBL LOADNUM, af INAL_LOADNUM 3 068 
50 55 B0 O08E MOVL STATUS, RO ; 0686 
4 00091 RET : 0687 | 


; Routine Size: 146 bytes, Routine Base: $CODE$ + 0385 
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iver mon, Load.ec, file Perform load of console c 1 730071382 95:03:33 DISKSVMSMASTER:CMOM.SRC JMOMLOAD.B32; 1 . 3 | 
ZSBTTL ‘mom_load_cc_file Perform load of console carrier code’ | 
ROUTINE mom_load cc file (loadflag, recv_msg_dsc, final_loadnum) = 


I 


e4 
: FUNCTIONAL DESCRIPTION: 


; 1 

3 1 

; : 
: 700 9% 1! This routine performs a multiblock system load of the console 
; 701 695 1! carrier code. The file format for console carrier is different | 
; 70 6 : 1! from other load images because it is not necessarily into the 

3; 70 97 1! target in contiguous memory locations. Therefore the load 
3 re 38 ! “records’’ contain a target memory address and record Length. | 
ma. $80 1! Absolute Loader Format isr etecia UNA Microcode on a Host 

3 444 O70 : 20-Aug-82 Al MacInnes 

; 709 708 a The following describes the planned file format for the Con- 

; 710 706 1! sole Carrier Server loadable microcode. Please return any comments, 

3 ae ry? : problems, and/or suggestions. 

3 ag $709 1! The Absolute Loader format is planned to be used for storin 

: 716 0708 1! UNA loadable microcode, such as the Console Carrier Server, on a hos 

3 715 0709 1! system. A file stored in this format would be read by a down-Lline lo- 

: rig 0710 1! ader task, executing on some host, and loaded over the NI to the wCS 

3; fr QO711 1! and/or Link Memory of the destination UNA. A file in Absolute Loader 

s 718 Bg 1! format is comprised of some number of variable-length ‘'records’’. Each 

3; 719 0715 1! record spect ties a 16-bit load address, followed by some number of 

: 720 0714 1! bytes which are to be loaded into memory starting at that address. 
oe 0715 1! This should allow easy construction of MOP ‘Memory Load’’ messages. 
Me: ; p78 1! Also, the records are physically contiguous in the file, even if the 

0717 1! *“image’’ that is represented is no physically contiguous. In other 

; 724 0718 1! words, there are no unused gers in the file, even though, as in the 

3 729 0719 1! case of a UNA loadable microcode image the code will reside in several 

3 139 4 : discontiguous segments. | 
; 728 07 § 7! The Absolute Loader record format is as follows: 

; E44 07 1! 

; 730 0724 1! Byte Contents 

4 731 07 5 1 ' oS (ee ee a ee ae ae 

; rag 07 $ 1! : 

s @ 4 7% 9. always a binary word of ‘1"’ 

; 734 728 1! mn number of bytes in record (can be odd), from byte 0 | 
3 73> 0729 1! to last data byte, but excluding checksum byte 

. £ 0730 1! 4,5 PDP-11 load address 

; 7 07 11! 6-last byte image data 
; 738 7 § 1! last byte+1 checksum (XOR ?), can be ignored for our 

; tip 4 ? ! purposes 
: 741 7 Ue Note: a record with a byte count of ‘'6"’ indicates the last record of | 
3; 74 7 $ 1! the file. If the load address of this last record is even, this re- 

3 oi 4 i : } presents a program transfer address. 
3 745 739 1 ! FORMAL PARAMETERS: ; 
3; 7 740 1! LOADF LAG Address of load retry flag (TRUE=>if load failed 
; 74 741 1! it failed on the first message exchange). 

3; «74 rg 1! RECV_MSG_DSC Address of descriptor for received MOP message. 

3 (74 745° 1! FINAC_LOADNUM Load number of Last load frame + 1. Returned to 

3; 750 0744 1! caller to be used in the Parameter Load with 


s2 | 
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745 
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AX-11 Bliss-32 V4.0-7 oe 37 
ISKSVMSMASTER: [MOM. SRC MOMLOAD .B32; ," oa | 
Transfer Address MOP message. 


' 
1} 
' ROUTINE VALUE: 
COMPLETION CODES: | 
Signal errors. 
! 


1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
recv_msg_dsc: REF BBLOCK; 
MACRO | 
i Console carrier load file definitons. There are variable Length “records” 
| 
} 
4 
4 


PAAEXEAAAIANIAIIII 


WN" OOOnNOulwn—O 


in the file that can be loaded to noncontiguous memory areas in the target. 


ce head = 0,0,16,0% ' Load frame header were (always = 0001) 
cc_rec_len = é 6,16, 0% load frame data lengt 
cc_load_add = 4,0,16,0%, ! load frame target a a 


mid_load_num ={,6 
mld—add =2,6, 


LOCAL 
buf _ptr: — BBLOCK, 
load_rec_ 
load—num? Lente. 


mid_msg_dsc: VECTOR ti" 

record _en 

partiaT_ record_ len, ! Length of a partial load frame at the end of a 
! record from the load file. 


mid.code = 0,0,8,0% ! MOP memory load message function code 
§.08, Of, ! MOP memory load message load number 
$2° ! MOP memory load message target address 


} Number of this load frame. Used for checking load 
frame sequence between MOM and the target. 


msgsize, 
status; 


4 tet tet PARP PRN RP Ne o 


] 
: Read the first record from the console carrier ioad file. 
mom_readloadfile (mom$q_readbfdsc); 


Pe ee 


“J 
0090900 


CON 


buf _ptr = mom$t_readbuf fer; 
Load the console carrier image file to the target. 
WHILE true DO 
qesin 
i Each record in the console carrier must start with a word of 1. 
Validate this to make sure the right file is being loaded. 
iF ‘but tr Cec_head] NEQ 1 THEN 
mom$ab_msgblock [Cmsb$l_flags] = msb$m_msg_fld; 
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$signal_ms 
END: _ 


i The last record of the console carrier load file has a byte count of 6. 
Load console carrier records until it 


§ mom$ab_msgblock [msb$b_code = naase sts. fc: 
mom$ab_msgblock Lmsb$w_detail] = .mom$w_pgmdetail; 
mom$ab_msgblock mebs\ texts = mom$_invccfil; 
5 gousbld_reply (mom$ab_msgblock, msgsize); 
: mom$ab_nice_xmit_buf, .msgsize); 


is found. 


—> ts _ —) 5 ss 45 ss 


MEW 9 OONOVUE WN “OO ONOU SW O 


if .buf ptr Cec_rec_len] EQL 6 THEN 
; EXITLOOP; 


i Save the load record Length so it can be overwritten with the MOP 
; yy ped Load message header information and the MOP message transmitted 
: directly from the read buffer. 


2 09 Cd CD CD CD 09 OD CD CD CD. 09 0D 00 CD CD CD 0D 


— ss ss 2 2 


load_rec_len = .buf_ptr Cec_rec_leni; 
record_end = .buf ptr + .load_réc_len + 1; 
If .record_end GTR mom$t_readbuffér + mom$k_loadbufsiz THEN 


i The load frame is pectty in this record, and partly in the next one. 
! Move the beginning of this load frame so, when the next file read 
is complete, the record is contiguous. 


BEGIN 
partie} record len = mom$t_readbuffer + mom$k_loadbufsiz - .buf_ptr; 
HSMOVE” (.partTal_record_lén, 


-dU ptr, 
mom$t_readbuffer - .partial_record_len); 
; Get the next buffer from the load file. 


mom_readloadfile ——_— readbfdsc); 
buf ptr = mom$t_readbuffer - -partial_record_len; 


OOOOOSCOOSOOSCOOSOOOOOSOOOoOoOoO 


Do tet tat at ett atated 


Build the MOP message in the read buffer and transmit it to the target 
from the read buffer. Overwrite the record byte count with the MOP 
Memory Load function code and load number. 


uf_ptr fnta-foag. = mop$_fct_mld; 


OC +--+ ---- =e 


uf-ptr Cmld_load_num) = [loa 


f * g_nur; 

f_ptr (mid add] = .buf_ptr (¢c_load_add]; 
ad_num =. 8 d_num + 1; 

d_msg_dsc j = .load_rec_len; 
d ij = 
I 

( 

r 


—-—-o 


“mSg_dsc -buf_ptr; 


f the console carrier load record won't fit in the load buffer 
this size is fixed when the load is initiated), signal an ‘‘image 
ecord size’ error 


if mid msg_dsc (0) GTR (mom$k_segblkcnt * 64) THEN 
makes meaktinall Cmsb$l_flags] = msb$m_det_fid OR 


msb$m_msg_fld; 
mom$ab_msgblock C[msb$b_code] = nma$c_sts_fio; 
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5 


mom$ab_msgblock (msb$w_ detail] = .mom$ab_service_data Csvd$gk_pcno. sty, 
svd3l_paramJ; 
mom$ab_msgblock [m 


mom$b\d_repl (momsab Bsgblock, msgsize); 


4 
4 
? b$l_text] = mom$_imgrecsiz; 
$s ignal msg mom$ab_nice_xmit_buf, .msgsize); 
i Send the MOP Memory Load message to the target and get a response. 


tus = mom_xmit_ load frame (.loadflag, mid_msg_dsc, .recv_msg_dsc); 
NOT .status THEN 
EXITLOOP; 


= me cme eee 


ta 

F 

i Point to next record’ in the buffer, skipping the checksum byte at 
the end which is not included in the record Length field. 


buf_ptr = .buf_ptr + .load_rec_len + 1; 
END; 


7 
Mo $s 
38 ! If the load address of the last record is even, use it as the transfer 
44s address. 
881 IF NOT .buf_ptr Ccc_load_add] THEN 
88 mom$\_transfer = .buf_ptr (cc_load_add] 
088 ELSE 
884 mom$\_transfer = 0; 
885 -final_loadnum = .load_num; 
08 RETURN .status; 
088 END; ! of mom_load_cc_file 


OFFC 00000 MOM_LOAD_CC_FILE: 
“WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
SE 10 ¢2 0000 SUBL2 # 
00000000' cf 9F 0000 PUSHAB MOM$Q_READBFDSC 
00000000v_ EF 1 FB 000 CALLS #1, MOM_READLOADFILE 
6E 94 0001 CLRB  —s- LOAD 
56 00000000" EF Ht: 0014 MOVAB MOMST_READBUFFER, SUF_PTR 
01 56 : 0018 1$: CMPW  (BUF_PTR), #1 
4A ; 001 BEQL 2 
900000006 EF 04 p 0 MOVL #4, MOMSAB_MSGBLOCK 
0G EF E MNEGB #14, MOMSAB_MSGBLOCK+4 
90000006 EF 90000000" F BO 000 3 MOVW § MOMSW_PGMDETAIL, MOMSAB_MSGBLOCK+8 
00000006 EF 00000000G &F p 0 MOVL  #MOMS-INVCCFIL, MOMSAB_ASGBLOCK+12 
04 AE 9F 00044 PUSHAB MSGSITZE 
000000006 EF 9F 00047 PUSHAB SAB_MSGBLOCK 
000000006 EF 2 FB 0004D CALLS #2, MOMSBLD_REPLY 
04 AE DD 0 4 PUSHL MSGS 
990000 0G EF 9F 00057 PUSHAB $AB_NICE_XMIT_BUF 
02070000 8F DD : PUSHL  #34013784 
000000006 00 3 FB 6 CALLS #3, LIBSSIGNA 
6 02 A 2 2$ CMPW g (BUF _PTR “ 
: 0 BNEQ $ 
31 000 BRW 5% 


| 
| 


vo 


MC 
¢ 


Network Mana 


; Routine Size: 


ee: Do 


000c0000Vv 


oo OO 
ac m— 


00000100 


000000006 
000000006 
000000006 
000000006 


000000006 


000000006 


00000000v 


00000000" 


oc 


Routine Base: 


wn Line Load Routines 
Perform load of console c 1b-Sep- 


# sonst 


6 00000000° 


i$ 00000000' 


00000000' 
66 

; 00000000° 
56 
66 

A6 

A6 04 
AE 
AE 
8F 08 


EF 00000000* 
EF S00000096 
000000006 


00000000" 


50 


—— 2O00O7 IM DOVOO 


OO TDL MDEMOUWmMouwr "COON 


men 


po Hy ee ee we | NOOO"OOO"OOSO DWoo-cVvV7 oo oo Rh ARS Bh ape oy 
o~ 


FOF & "OW MOOWMI*VOWVWOI "OVI s70O OMOW—COSOSOrCCOW ™@romu«» 


SCODES + 0417 


1886 $Si2e:38 — PhexbumBASfeRscHGA’secImomoan.032:4°%° (Fo 


novi he PTR), LOA 
m0 vAB 


REC_L 

nORET REA ots surrey F pres RECORD_END 
1536, rb 

RECORD_E 


MOMST_READ urges 
PARTIAL RECORD _LEN 


@ 
wv 
—- 


RDe tEN® R7 : 

PARTIAL RECORD~ CEN. four _pTR), (R7) : 
MONSa READBFDS : 
neon READLOADF ILE ; 

UF _PTR) : 
LOAD_NUM> 1(BUF_PTR) : 
a PTR), 2(BOF_PTR) : 
LOAD “REC -LEN. MLD_MSG_DSC : 
BUF _PTR,~ D_mSG BSc+% : 
MLD “MSG "pst. “#256 ; 
#6, MOMSAB MSGBLOCK : 
#18, MOMSAB_MSGBLOCK+4 3 
C<AOHSAB SERVICES OA TAS<SVDSGK _PCNO_STY*#137>=: 


$AB_MSGBLOCK+ ; 

amos IMGRECSI?. MOMSAB_MSGBLOCK+12 : 
MSGSIZE | ; 
$AB_MSGBLOCK F 
MORSBLD- REPLY : 
MOMS$AB_NICE_XMIT_BUF : 
: tt Yael 
uee pee 

MLD ASG DSC Bsc : 
» MOM XMIT_LOAD_FRAME ; 

no. § ai TATUS 3 
1 <LOAD_ REC_LEN) (BUF_PTR], BUF_PTR : 


4(BUF _PTR), 7$ 
$ {BUF . PTR), MOMSL_TRANSFER 


MOMSL_ TRANSFER 
LOAD RUM. @F INAL_LOADNUM 


<2 


ee ee) 


Sm Aan APeee 
me OOO SONU 


oooo OoCoCoOoOO 


i. 


SESS ae oNsSSSses 


a ad 
DONAVLEWN “QO OONOUSWN oO 


WDODODODODODOOOVODODOOODOOOODOODODDVOODOOVNO 


SHIEREG= 
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mom_xmit_load_ frame rensait mult block loa 1 230071 38e ras ti DLSKSVMSMASTERSCMOM: SRCTMOMLOAD.B32;1°%° (a) 


1 ZSBTTL ‘mom_xmit_load_frame Transmit multiblock load frame to target’ 
ROUTINE mom_xmit_load frame (loadflag, xmit_msg_dsc, recv_msg_dsc) = 


This routine sends a single load frame to the target during 
a multiblock load sequence. 


i FORMAL PARAMETERS: 


SESSSFSSISSE 


UU AIAN IAI AI I I I I I AI IO RO PPORNPNN 
o ome . ° 
m 
oO 
Cl 
ciniaecenitigaaead = 
mam 
on 
“4 
oo 
DD 


' 

! 

' 

1 

' 

: LOADFLAG Address of load retry flag (TRUE=>if load failed 
: it failed on the first message exchange). 

; XMIT_MSG_DSC Address of descriptor of MOP messageto transmit. 
: RCV_ASG_BSC Address of descriptor for received MOP message. 
! 

' 

' 

J 

4 

' 


90 . 

904 ! ROUTINE VALUE: 

905 ! COMPLETION CODES: 
307 Signal errors. 
0908 

090 on 


ooo 
ooo 
=~ 


xmit_msg_dsc: REF V 
recv_msg_dsc: REF V 


Lm, d dd 

skip_msg_dsc_addr 

nent lostnun”: BYTE, 
status; 


DECR retry FROM 4 TO 0 DO 
BEGIN 


!' For NI circuits, program load requests are retransmitted if no 

' response is received within a specified time. If this the first 
' Load frame, set up to skip them, in case there are a number of 
these messages backed up on the circuit. 


SSSGOOSOOGOSOBOOD 


if .mom$w_first_load_frame THEN 
skip_msg_dsc_addr = mom$gq_mop_msg_dsc 


skip_msg_dsc_addr = 0; 
status = momSmopSndrcv (mom$ab_cib, .xmit_msg_dsc, 
mom$ab_cib, mom$gq_mop_rcv_buf_dsc, 
recv_msg_dsc ‘ 
-Skip_msg_dsc_addr); 


MEW OOONOUE WIN “OO OONAOUS WN —0O0 


| 
| 
'ee 
H FUNCTIONAL DESCRIPTION: 


IF oF ates THEN 
If ,.loadflag THEN 
BEGIN 
mom$ab_msgblock (msb$L flags) . 0 


m ’ 
mom$ab_msgblock esters nma$c_sts_lco; 
EXITLOOP; 


fwn—o 


S2 


OOOODOO000 


vw 


SABE ts Lt 


. 
~“ 
Fa 


975 


. 
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mom_xmit_lcad_frame ton dh t multiblock loa 1 


lis 
4 
3 
4 
4 
4 
4 
: 
4 
4 
‘e 


END 
ELSE 
i eapeegen. -mop_error (.status); 


hy the response message from the target node. It must 
i be request memory load message. 


if (. aneey vated dsc (0) Iss 2) 
on te ASRCRAR (mom$ab_mop_rcv_buf) NEQ mop$_fct_rml) THEN 


mom$ab_msgblock fmsb§t les] © 
mom$ab_ms ro po msb$b_cod 
status = failure; 

ati 


= a _sts_lpr; 


If response message from the target node is requesting the 
the next load buffer, then don't retry. 


—t te cms mrase 


ext lLoadnum = .(.xmit_msg_ dsc [1] + 1)<0,8> 
F .KmonSeb. mop_rcv_but + 1)<0,8> EQL .next_ Sai Bick THEN 


greet los = false; 
EXIT LOOP; 


sad. ae load_frame = 0; 
um -Status; ~ 


! End of mom_xmit_load_frame 


O3FC 00000 MOM_XMIT_LOAD_FRAME: 
~WORD™ nove Mt R3,R4,R5, af R7,R8B,R9 


59 00000000' EF 9€E 0000 MOVAB MOMSW_FIRST_LOAD. FRAME. RO 
58 000000006 EF 9€ 0000 MOVAB MOM MSAB B 
57 000000006 _ ‘EF 4 9019 MOVAB MOMSAB “ASeBLOCK R7 
52 08 AC 00 0001 MOVL XMIT_MSG DSC, R2 
54 04 D9 0018 MOVL #4, RETRY 
09 69 OO1E 1$ BLBC #§ MOMSW _FIRST_LOAD_FRAME 
55 000000006 EF f 00 1 MOVAB HOMS $G0_MOP_ASG_DSC, ip 2556 _DSC_ADDR 
é 8 BRB 3 
D4 O002A 28: CLRL  SKIP_MSG_DSC_ADDR 
5 DD 0002C 3$: PUSHL  SKIPTMSG"DSC~ADDR 
oc AC OD 00 F PUSHL REC “MSG” 
000000006 a F 00 PUSHAB $60_MOP_RCV_BUF_DSC 
8 DD 9 7 PUSHL 
08 Ac DD 9 PUSHL  XMIT_MSG_DSC 
58 DD C PUSHL RB 
000000006 ef F CALLS #6, HOMSMOPSNORCV 
3 D 4 MOVL RO TUS 
1 E 4 BLBS ST Tos" 5 
08 04 BC E 48 BLBC = @LOADFLAG 
D4 O004F CLRL MOMS$AB tASEBLOCK 


DIS SKSVMSA TER: (MOM. SRC MOMLOAD .B32; i (Bs 


] 
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Network Management Down Line Load Routines 18-520 3: VAX-11 Bliss-32 V4.0-7 e 33 mC 
yoor008 mon xmit. load. frame ronan t multiblock loa 14- or 984 93: g 4 DISKSVMSMASTER: CMOM. se MOMLOAD.B32;1 fae B ve 
06 A7 A ef MNEGB #10, MOMSAB_MSGBLOCK+4 3 0943 
BB 9% : 0941 
i) 4$: PUSHL 314 TUS 3: 0947 
000000006 fe 1 + 9 CALLS MOMSCHK MOP RROR $ 
2 0c § p 60 5$: CMPL Srecy _MSG_DSC, # > 0953 
9 64 BLSS 6$ : 
0A 000000006 Fr 3 66 CMPB MOMSAB_MOP_RCV_BUF, #10 3 0954 
BB 60 BEQL 3 
67 ee sf 6% CLRL BORSAS MSGBLOCK 3; 095 
04 A? 11 E MNEGB MOMSAB _MSGBLOCK+4 3; 095 
53 D4 0007 CLRL erate + 0958 
1A «(11 4 BRB 3; 0955 
50 04 Ae 0 79 7$: MOVL rh 2), RO 3; 0965 
56 01 AQ 0 1 00070 ADDB3 1(RO) NEXT_LOADNUM é 
56 000000006 Ff 1 000 : CMPB MOnSABY MOP_RCV_BUF+1, NEXT_LOADNUM + 0966 
5 12 000 BNEQ 3 
04 g D4 000 CLRL @LOADFLAG ; 0968 
11 0008 BRB a6 3 0967 
88 4 F4& 00090 8$: SOBGEQ RETRY, 1$ 3; 09 
69 D4 00093 9$: CLRL MOMSW_FIRST_LOAD_FRAME ; 09 
50 53 00 00095 MOVL STATUS, RO : 097 
04 00098 RET 3; 0974 


; Routine Size: 153 bytes, Routine Base: S$CODE$ + 056C 
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mom_sec load Perform secondary bootstrap | 14-Sep-1984 12:44: DISKSVMSMASTER: CMOM. SRC JMOMLOAD.B32; 1 (9) 
; 983 75 1 XSBITL ‘mom_secload Perform secondary bootstrap load’ 
: 3 ¢ 7 : ROUTINE mom_secload (loadflag, msgdsc) = 
: 9 3 1 tee 
: 2 444 : } FUNCTIONAL DESCRIPTION: 
: 98 981 1! This routine down Line loads the secondary bootstrap loader to the 
; 990 9 § 7! target node. It sends the entire load image in a single MOP 
; 991 9 1! message. This is required by MOP to keep the primary boot as simple 
3 936 9 1! as possible. 
; 99 985 1! 
; bay: i ! FORMAL PARAMETERS: 
: 996 +3 1 LOADFLAG Address of load retry flag (TRUE=>if load failed 
; 997 0989 1! it failed on the first message exchange). 
s o38 344! : MSGDSC Address of descriptor for received MOP message. 
: 1000 99¢ | i IMPLICIT INPUTS: 
; 1001 9935 1! 
3 Inne 994 1! NONE 
; 100 94 1! 
3 1004 Bae 1 ! IMPLICIT OUTPUTS: 
; 1005 0997 1! 
1009 0998 1 | — 
; 1008 1000 1 | ROUTINE VALUE: 
; 1009 1001 1 ! COMPLETION CODES: 
3; 1010 1SR6 1! 
3: 1011 1005 1! Signal errors. 
3 Ile 1004 1! 
3; 101 1005 1 ! SIDE EFFECTS: 
3 1014: 1006 1! 
Heo i pee 
; 1017 1009 1_ 
HBB RIE: g ect 
; 1020 101g 2 MAP 
; 1021 101 msgdsc : REF VECTOR; 
: 1098 1018 3 LOCAL 
; 1094 Iot¢ Load byte_cnt. ! Byte count of secondary boot loader image. 
3 cr. 
i 1096 1918 Snddsc : VECTOR (2), 
31 101 status, 
3 + ; 19 Y skip_msg_dsc_addr; 
; 10 0 1 ¢ i Check the load size. The entire secondary loader image must fit in the 
3: 1031 10 ! transmit buffer. MOMSL_LOADSIZE is secondary bootstrap image size. It 
; 1036 1024 ' was_ obtained from the secondary boostrap file header, and is specified 
3 193 19 5 in 32 word blocks. 
; i 3¢ 1p $ load_byte_cnt = ,mom$l_loadsize * 64; 
; 1939 i$ 5 i If the byte count is slightly greater than 150C because the loader took 
; 1038 + 0 ! the Last word block and went over the Limit, truncate the length of 
3; 1039 1031 ! the loader down to fit into a single NI message. 


en ————_——_—_—_—_{ 
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mom_sec load Perform secondary bootstrap | 14-Sep-1984 12:44:3 DISKSVMSMASTER: CMOM. SRC JMOMLOAD .832; 1 (9) 


if .load_byte_cnt GTRU mom$k_maxsecsiz 
AND .load_byte_cnt LEQU mom$k_loadbufsiz 


load_byte_cnt = mom$k_maxsecsiz; 
Make sure the message fits into a single NI message 
IF .load_byte_cnt GTRU mom$k_loadbufsiz THEN ' 


momSerror (nma$c_sts_fco, -soatupgaget il); 
IF WOT jnondgl_service. flags Cmom$v_fi_circ] THEN 
' 


PERERERERE 


WN SO CONOUNEWN—"OOONOUESWN—0O 


start address must be 


i MOP specifies that the transfer address and image 
; 6 fied for these fields in 


! 6. For generality, add 6 to the values speci 
the secondary load file header. 


mom$\_baseadr = .mom$l_baseadr + 6; 
gonna anerer = ,mom$T_transfer + 6; 


pole jojo lelelojolelq) 
DAMA MUIVIVIV 


' 
: Read a block from the load image file. 


g 

4 

5 

5 

3 

0 

1 

§ 

ra 

5 

; 

8 

9 

0 

1 

5 nom_readloadtile (mom$q_readbfdsc); 

; ; Fill in the MOP message information. 

; 

1 

g 

4 

5 

; 

8 

9 

0 

1 

g 

4 

5 

§ 
3 
0 
1 
g 


Seseesess 
SSSSSSSSSSSSSSSS 


DWONOULSWN—OV0OnN 


ptr = mom$t_loadbuffer; 


& 


ch$wchar_a (mop$_fct_mlt, ptr); ! Function code 
ch$wchar_a (0, ptr); ! 

ptr = chSmove (4, mom$\_baseadr, ! Load address (base) 
ptr = .ptr + .load_byte_cnt; : p image data 

ptr = ch$move (4, mom$l_transfer, .ptr); ! Transfer address 


Sooooo 


Load number 
nip 


o 


= mom$t_loadbuf fer; 


snddsc 
= mom$ab_mop_rcv_buf; 


snddsc Ht} = .ptr - mom$t_loadbuffer; 
msgdsc 1 


ee 


Send the message and receive the response. If the request for the secondary 
was an NI multicast, MOM is essentially volunteering assistance. Send the 
secondary only once (as you would with an assistance volunteer), and if no 
cespense is received, quit. Some other host responded to the multicast 

rst. 


oo 
WN 
eee eee 


Co 
uw 


iF .mom$gl_service flags Cmom$v_ni_volunteering] THEN 
mom$ab_cib Ccib$l_retry_cnt] ="1; 


If it’s an NI circuit, the target could have multicast the Program Load 
Request more than once. If so, skip over these messages until one is 
r 


a 


SLE 


eceived which is a response to the secondary loader. 


Ba if -mom$gl_service_flags Cmom$v_ni_circ] THEN 
skip_mSg_dsc_addr = mom$gq_mop_msg_dsc 


085 
§ ELSE 
skip_msg_dsc_addr = 0; 
8 status = mom$mopSndrcv (mom$ab_cib, snddsc, 


a a ee cc ee ee ec ee ce ee ec ee ee ee a ee ce ee ce ee ee ee ee a ee ee ee ee ed ed eed 
a ee ae a a ed od 2d od td od dd dd 


SSZEESE 


HTOMWMMOOWZ EF KOCH TOMMOOWZ EF KOK LO MM OO WZ EK KC KH TO MMO OWZ™ Er KCK TO MMOOW 


SEErEEEEEnEEnennnnnPEIEE IR ERERE EERE 
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mom_sec load Perform secondary bootstrap | 14-Sep-1984 12:44: DISKSVMSMASTER: (MOM. SRC JMOMLOAD.832; 
244 9 wonsab_¢ ih. mom$gq_mop_rcv_buf_dsc, 
098 msgdsc (0), 
-Skip_msg_dsc_addr); 
0 


! then return the error status. If 


woooooo 
- 


ooo 
WOON 


} the operation. 


if (NOT .status) AND (NOT ..loadflag) THEN 
mom$chk_mop_error (.status); 


polo lololole) 


chosen by the target to do the load. 
mom$ab_cib Ccib$l_retry_cnt) = 5; 


i 
addressed directly to this node was received. 
i 


LESRELSS 


! exit the volunteering state. 


oo 


' 
if .status THEN 
BEGIN 


for the secondar Quit. 


can process the request. 


status = failure: 
END; 
§ RETURN .status 


ce et el el elt eel el el ell cect eel cel cel cel el cls calls cel cl cls ed 
FSS Sa manrumro See RP eS 

WN —O CONOUESWN— DODNOUS WN 00M Vw 
a ee ce a ee ce ce ee ce ee ce ed ee ee ee eel ee 


se DB ee 8 ed ed ed ed wd od od 


MOPARTS es 


Se Se Se Ge Oe Se Se Ge Oe Fe Oe Oe Be Se Ss BH Se Oe Oe SH Oe OH Ss Ss Os 8 Se Se Se Se Ss Oe Oe SHS Se eee 
a kd 
AUSWN "OC OONOUSWR—OV0O 


1 END; ! End of mom_secload 
003c¢ 00000 MOM_SECLOAD: | 
55 000000006 EF 9€ 0000 MOVAB 
$$ S800b000? fr 3 $8809 Raves 
at srg Be co Goo? at 
00000500 bf 98 D1 3 9 CMPL 
00000600 =aF ; of 9 CMPL 
2 oso fr Se Sue ASV 
00000600 = BF 2 Di 00037 18: CMPL 
OF 1B 0003E BLEQU 


i If the receive failed and no messages had been previously exchanged 
he receive failed and some messages 
! had been exchanged then signal a communications error to terminate 


Restore retry count in case MOM was ee oe Fagen se 
Ss means Ss node was 


i If the target responded with a message addressed directly to this node, 
This node was chosen to perform the Load. 
ALL further messages between MOM and the target will be non multicast. 


IF NOT .mom$gl_service_flags Cmom$v_ni_multicast] THEN 
gg Onea! service. flops Cmom$v_ni_volunteering] = false 


MOM got a multicast request from the target that wasn't a request 
he Presumably the target will retransmit 
the request and MOM will get started up again in a context that it 


Save R2,R3,R4,R5 
OM +1 


M 
MOMSGL “SERVICE FLAGS, RG 
MOMST_COADBUFFER, R 

#6, MOMSL_LOADSIZE, LOAD_BYTE_CNT 
LOAD BYTE-CNT, #1488 


OAD_BYTE_CNT, #1536 


#1488, LOAD _BYTE_CNT 
LOAD_GYTE_CAT, BTS 36 


gone is 


0976 


1 
1 


085 


1034 


ee 


PS 
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mom_secload Perform secondary bootstrap | 14-Sep-1984 12:44: DISKSVMSMASTER:CMOM.SRC JMOMLOAD .B32; 1 (9) 
ze FOFB 3=6C3 O3C 49 MOVZWL MOMSW_PGMDETAIL, -(SP) : 1041 
E CE 0004 MNEGL #14, =(SP) : 
000000006 EF F 48 CALLS ae, MOMSERROR : 
A 64 E 4F 2%: BBS #1, MOMSGL_SERVICE_FLAGS, 3$ : 1042 
FOES ce 6 ¢ ; ADDL #6, L_BASEADR 3 104 
FOFG OC 6 § ADDL2 #6, MOMSL~ TRANSFER : 1050 
00000000' FF F p 3$: PUSHAB MOMS$Q_READBFDSC + 105 
00000000v ff 1 FB B06 CALLS #1, MOM_READLOADFILE 3 
1 63 9E A V MOMST_LOADBUFFER, PTR : 1059 
i B4 0006D CLRW = (PTR) + 1061 
1 FOES ¢ D OO6F OVL. MOMSL_BASEADR, (PTR)+ + 1063 
1 C 99 4 ADDL2 LOAD BYTE CN + 1064 
1 rOFG CC) b 77 OVL  MOMSC_TRARSFER, (PTR)+ + 1065 
0 § : ogre MOV MOMST~LOADBUFFER, RO + 1067 
6E 51 9 § O7F SUBL , PTR, SNDD ; 
04 Ar 6 i 0083 MOVAB MOMST_LOADBUFFER, SNDDSC+4 > 1068 
5 08 AC DO 000 MOVL MSGDST, RO : 1069 
04 AO 000000006 EF 3 0088 MOVAB MOMSAB_MOP_RCV_BUF, 4(RO) ; 
64 95 0009 TSTB MOMSGL~SERVICE-FLAGS : 1077 
3 18 00095 BGEQ ; 
65 01 DO 00097 MOVL #1, MOMSAB_C1B+18 + 1078 
09 64 01 al 009A 4$: BBC #1, MOMSGL-SERVICE_FLAGS, 5$ + 1084 
51 000000006 EF : 9009 MOVAB MOMSGQ_MOP“MSG_DSC> SKIP_MSG_DSC_ADDR > 1085 
2 11 QOOA BRE $ : 
1 D4 OOOA7 5$: CLRL  SKIP_MSG_DSC_ADDR : 1087 
03 8B O00A9 6$: PUSHR #*M<RO,RT> : 1090 
000000006 EF 9F OOO0AB PUSHAB MOM$GQ_MOP_RCV_BUF_DSC : 1088 
EE AS 9F 00081 PUSHAB MOMSAB-CIB ; 
10 AE 9F 000B4 PUSHAB SNDDSC ; 
EE AS 9F 00087 PUSHAB MOMSAB_CIB ; 
000000006 EF 06 FB O00BA CALLS #6, MOMSMOPSNDRCV : 1090 
2 50 00 000C1 MOVL RO, STATUS ; 
OD 52 €8 000C4 BLBS = STATUS, : 1098 
09 04 8¢ E8 000C7 BLBS § @LOADFLAG, 7$ F 
52 DD 000CB PUSHL STATUS : 1099 
000000006 _ EF 01 FB 000CD CALLS #1, MOMSCHK_MOP ERROR : 
65 93 DO 00004 7$: MOVL . AB_CIB+T : 1105 
0c : E9 00007 BLBC — STATUS, > 1117 
06 64 EO OO0DA BS #5, MOMSGL_SERVICE FLAGS, 8$ + 1113 
64 80 BF BA SO0DE BICB2 #128, MOMSGL_SERVICE_FLAGS : 1114 
11 000€ RB 9$ ; 
52 D4 OOOES 8S: CLRL «STATUS + 1122 
50 52 DO 000E6 9$: MOVL STATUS, RO > 1126 
04 000E9 > 1126 


; Routine Size: 234 bytes, Routine Base: $CODE$ + 0605 


3 1135 1127 1 
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nom openloedt ite Open the AN.. file for 12286871382 95:03:43 DI 


ZSBTTL ‘mom_openloadfile Open the image file for loading’ 
ROUTINE mom_openloadfile = 


Q 


Ot ieseae V4.0-74 


X-11 § Page 38 
SKSVMSMASTER:CMOM.SRCJMOMLOAD.B32;1 (10) 


i FUNCTIONAL DESCRIPTION: 

Open the image file to be loaded and check the validity of the image. 
FORMAL PARAMETERS: 

NONE 


IMPLICIT OUTPUTS: 
MOMSW_PGMDETAIL Detail code to use for file errors. 


ROUTINE VALUE: 
COMPLETION CODES: 


If no file name or service device is specified then FALSE is 
returned indicating that not enough information was specified. 

A FALSE return value indicates to the calling routine that 

the target system must supply the ateeine information. Any 
errors encountered when trying to open the file will be signalled. 


SIDE EFFECTS: 
NONE 


A et ey ye tet a SS Re 


SSSR RPAVASSSVSARANASSSLSTLEVISSSVEALUNLSSSELSESEESES 


BEGIN 


LOCAL 
adr, 


dev, 
fildsc : VECTOR (2), 
len, 


msgsize, 
file_svd_index, 
ptr, 
status; 
' 
: Get the file type. 
SELECTONEU -mom$ab_service_data Csvd$gk_pcno_sty, svd$l_param] OF 
nma$c_soft_tert): ! Tertiary loader 


file_svd_index = svdSgk_pcno tlo; 
sonte_pgadetai| = nma$c_fopdtl_tlf; 


a a a lk ee ee a 
a a a a a a a ee ee a a a ee 
a a a a a a a a a a el a el el a ee 
C009 090900 Ni NIN SN NSN NN PPA AAA AAA AMM BBE BBE EB EAA 


PEAR IPIARIALAMLPIPIPIPINIPINIAHIMINIM|IAN INP nt st sd ot od 


Cnma$c geftosyed: ! Operating system or diagnostics 


ooo 
wn 


Be Se Se Se Se Be Se Ge Se Ge Fe Se Se Se Se Se Se Se Se Be Se Ge Se Se Se Ge Se Ge Se Se Ss Ss Se Be Se Se Se Se Ge Se Se Se Se Se Ge Ge Ss Se Se oe Se Ge Se Se Se ee Ge 


IF ,mom$ab_s*rvice_data [svd$gk_pcno_$fty, svd$l_param]) EQL 
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mom_openloadfile Open the image file for 12-86p-1984 
5 $c_sid_os 
s § NOT -mom$gl_service_flags focate vsiltestectent THEN 
Ignore requests for the diagnostics if the operator 
38 $ i pSqusstes the load. This i? in case the test button 
4 has been left in on the target. 
3 3 get ite svd_index = svd$gk_pcno_loa 
0 Ge file_svd_index = svd$gk_pcno dfl; 
04 95 mom$w _pomdetail = nate “fopael. Fl; 
5 38 END; 
0 98 COTHERWISE): ! Secondary loader 
08 99 BEGIN . 
00 file_svd_index = svdb gk. pcno plo; 
01 mom$w_pgmdetail = nma$c_fopdtl_sl 
o¢ END; 
0 
Be TES; 
oS i Get the file name of the file to be loaded. 
' ir "BEGIN service data C.file_svd_index, svd$b_string_len] EQL 0 THEN 


i File was not found in the data base so build it from the file type 
; and the service circuit. 


ptr = mom$ab_service_data [.file_svd_index, svd$t_string]; 
eeLec Tyee -mom$ab_service_data Csvd$gk_pcno_sty, svd$l_param] OF 


Cnma$c_soft sect]: 
ptr = CASMOVE (3, UPLIT BYTE ("SEC"), .ptr); 


ogee _soft_terl): 
tr = tagmove (3, UPLIT BYTE ("TER"), .ptr); 


an 
BEGIN 


Sudo bent nbse2ee 
NOVEWN OO ONOUS WN O 


pea et tere 
MEW —O0OW 


ponecrys (nma$c_sts_pms, nma$c_pcno_loa); 
a false; 


Se 


ee ee eg ka dd nd oe wd 


PRIPIPIPPINPIMPOAINDNNYPYINIPIPIPIPIPOPNYPININYIPINIPINIPI PO NI PIPYUPIPIPOPUPIPUNINIPIPIPIPIPIPINPYINUNINYDY 2 SS OS 


4 

4 

4 
33 
#4 , TES; 
*) i Get the service device type code from the data base. 
cs dev = ,mom$ab_service_data Csvd$gk_pcno_sdv, svd$l_param]; 
rb Get the service device name string from the table. 
<3 alae = false 
48 INCR i FROM 0 fo mdt$gk_mopdevcnt - 1 DO 
3 BO ae 
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4 f a match is found in tne table then move the device name string into 
he file name buffer. 


! 
; 
! 
if -mon$ab_mopdevices C.i, mdtSb_devtype] EQL .dev THEN 


adr = ,mom$ab pogdevices C.i, mdt$a_devstring); 
Len = .(.adr)20,8>; 

adr = .adr + 1; 

ptr = CHSMOVE (.len, .adr, .ptr); 

status = true; 

EXITLOOP; 

END; 


. 


; 3 
t 


WO OONOUS wr 


yA A A ty ee ee 


mom$ab_msgblock pasbst.fts s] = msb$m_msg_fld; 
mom$ab_msgblock Cmsb$l_text] = mom$_Unsmopdev; 
mom$bld_reply (mom$ab_msgblock, msgsize); 

$s ignal_msg (mom$ab_nice_xmit_buf, .msgsize); 


1 

65 ! .* a service device was found in the table then set up the file name 
28 ' descriptor. 
6 ! 

8 IF .status THEN 

9 mom$ab_service_data [.file_svd_index, svd$b_string_len] = 

» _— -ptr = mom$ab_service_data C.file_svd_index, svd$t_string] 

¢ BEGIN 

4 

5 


SN NNN SSO oO 
SsaNe 


MPOPOPOToPonofororys 


END; 
ildsc [0] = .mom$ab_service_data [.file_svd_index, sudsh string. tend: 
ildsc C1) = mom$ab_Service_data C.file_Svd_tndex, svd$t_StringJ; 


tatus = mom$srvopen (fildsc, nma$c_opn_ac_ro); 
; If the file could not be opened then build and signal an error message. 
IF NOT .status THEN 

BEGIN 


mom$ab_msgblock Cmsb$w_detail] = .mom$w_pgmdetail; 
mom$bld_reply (mom$ab_msgblock, msgsize); 
$signal_msg (mom$ab_nice_xmit_buf, .msgsize); 

A RN .status; 


PRESVISSEL SORT 


MIPIPOPOPOPIPIPO PPO NoPoTfofnornygs 


Read in th 
from the block, and then skip over the rest of the Label blocks to the 
beginning of the load file as | a data. Note the the console carrier system 


e first Label block of the load file. Get the load file attributes 
i 
load file skips this because it does not need, and therefore, does not have 
i 
| 


oO 
~ 
19 09 09 09 0D 09 09 09 0D 09 NI NIN SIN SN NSS OPA AA AAA AAI ITT BP PPE 


VESRANSLSSSNSEALAN AS Sos No F ver —OS Ooo Worn Powe oS Gee orca iene no Dee waren 


a label block. 


F NOT .mom$gl_service_flags [mom$v_console_carrier_load] OR 
-mom$ab_service_ data [svd$gk_pcno_sty, svd$l_param] EQL nma$c_soft_secl THEN 
mom chéeck_labet_blk (); 

RETURN Erue 


END; ! End of mom_openloadfile 


SEoxcsse 


ee ee a ee ee ee ee a ae ee ee el el ee lh a ee el el el el el cl el el el ee eel el el el ell el el el el el el eel eel 
en ee en nn en ee ee ee ee ee eee ee eee eee 


PIPDPPSPIPIPINININPINIPAIPUNINININININININININYNIPYINININPYININININPINIPYN 


Be Se Oe Se Se Bt Se Se Ge Se Se SH Se Se Se Se Ge Fe Se Se Se Fe Se Se Ge Se Ge Se Se Se Sse Se Se Se Se Be Se Ge Se Se Se Se SH Se Se Se Oe Ss Se Se Se Se Os Oe Se ee ee 


oowowvowovovownd 

oo 

PP OPOPOPOPONOPOPONIPUPINI WINN AIUIIIPUPNUPUNINUPINUIW ES & BB BWW WWW nnn BB 
-w 


= 


Pa 
1 9 


e 4 
(10 


0 
) 
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y0er000 mom_openloadfile Open the image file for 132800- 1386 95:82: 


.PSECT 

OFFC 00000 re 

E C2 0000 SUBL2 
2 00000000* 55 $5008 MOVL 

01 


50 000000006 
00000000" EF 


02 
QOOOOOFF  8F 00000000* 


1$: CMPL 


00000006 
00000006 


1 
E 
5 
1 
8 
0 
4 
P] 
2 
E 
E 
00000006 3 


oe oo 


F 
1 
E 


4 
F 
1 
0 
F 
4 
0 
1 
D 
F 
7 
F 
F 
7 
00000000' 
00000000" 

57 000089 
O00000GEF 47 


SOoOooooooooosoo SoOoCoooooo 
COOOCCCOCSSSSSOSSSO COCoOooOSoO 
NSNAAOMUMUE ES EWAA  ROTROno | OO 


00 
3 00000000GEF 


OOOOCoOoOoOoooooooo COOCOOOOCOoOO 


CoOoooooooo 
OOOOooooo 


5 
5 


NVMWO OV O— PW PAS PAS OS MOOS BO 
@ 
r] 
@o 


CoCo CoCo ~~ 


63 18 00 00000000' 
01 
63 18 99 00000000" 


3s 
2 
@ 


3 
A 
9 
1 
B 
F 
E 
1 
E 
F 
3 
1 
7E 78 
7E Dd 
é 
E 


00000000G_ EF 
04 AE 00000000* 


00 


TWIMNAN OM 89S 9 9 OW OOOO -@ao-"ComMm— 9o-0-00-"—"0 
Oo--@M > “COON | “ONMV10M —“IYVIM NOOO 0O—" COW —r——OOon — 


0 
Q 
8F 
0 
8F 
4 
6 
0 
B 
4 
5 
5 
1 
oF 
0 
E 
EF 


AWM OYVWOnVTYO 
eo 
wn 
> 
=] 
~J 
a 
~ 


Ssoooose 


owrrrrrovovo 


oooo 
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SCODES ,NOWRT ,2 


Saye R2,R3.R4,R5,R6R7-RB/RI-RIO,R11 
<<MOMSAB_SERVICE_DATA+<SVDSGK_PCNO,STY#137>~ 


>+9>, R 


R1, #1 
1$ 


#SVDSGK_PCNO_TLO, FILE_SVD_INDEX 
#4, MOMSW_PGMDETAIL 


R1, #2 


<<MOMSAB_SERVICE_DATA+<SVDSGK_PCNO_S$F TY*~ 


137>>49>, #2 
2$ 


MOMSGL_SERVICE_FLAGS, 3$ 
#SVD$GR_PCNO_LOA, FILE_SVD_INDEX 


#SVDS$GK_PCNO DFL, FILE_SVD_INDEX 
#1, MOMSW_PGMDETAIL 


gqVOSEK PCNO_ SLO, FILE_SVD_INDEX 
#3, MOMSW TAIL 


#137, FILE SVD_INDEX, R7 
MOMSAB_SERVICE-DATA+ECR7J, R10 


16$ 
MOMSAB_SERVICE_DATA+9(R7J, R9 
R9, PTR 


8$ 

P.AAS, #0, #24, (PTR) 
9$ 

Ri #1 

P.AAT, #0, #24, (PTR) 
a PfR 

#120, -(SP) 

#29, -(SP 

#2, MOMSERROR 


<<MOMSAB_SERVICE_DATA*<SVDSGK_PCNO_SDV#137>~ 


9>, 


S2SFar LF 


Mngt —s 


> es ss oe 


Network Mana 
mom_openload 


; Routine Size: 423 bytes, 


5 
AE ooooo000cer 20 


63 


D1 
6A 


000006 


00 
00000006 


0 
0 
000000006 
000000006 
oC 
10 
000000006 
000000006 


000000006 


000000006 


08 000000006 


00000000Vv 


errant Down 
ile 


Routine Base: 


Line Load Routines 
Open the image file for 


QOOO0000GEF4 
8 
68 
6E 


56 000000006 


38 


EF 
EF seem’ ¥ 
000000006 


Com > OMS DOW OO 


A 
AE O0000000GEF 
10 


vaptaed * * 
, 000000006 


Onvro~o 
MUA HMR HM HM Oromm Vv SI HIM MPM“ & Oo.Orn “Oo MD OOrnoeoun—m 


00000000* 


m 
ooo MS HOOMPOMPMOUV10S VSO 


-oN THO 


uw 
oO 


RMN HMMMMMOGCVIAOOOoW 


Win Coro —™ Coro & Mh 3 EPO OUT OOP ™ Ooru Row NEOPNWOOCO LS OVWwOMmMmM —— 


SoVTogo FR FMS SOS MOONS "OFT OOD OST TOOTS OOM 8 ON OT O-MM9 Ig 
3S pte Oy ee ey EE ye he ees 
_u oO 


SE SODN NH LOTS TOD * "OOO LMSW NOD ="OO—WOW "OO FOI NM 


SoOooCoOSoSo OOOO OOCOOOCOOOOOOOOOOOOOOOO 
Ooooooco OCOOOCCOCOCOCOCOCOCOCOCOOCOOCOOOOOOOOOOOOOOO 


SCODES + O6EF 


for 


53 DESkSunsn 


STATUS 
#1, I 


#5, 1, R0 
‘ #8, MOMSAB_MOPDEVICESCROJ, DEV 
MOMSAB_MOPDEVICES+1(RO] 

P)+> ADR 


a(s 


aoe Taek PCPEVENT <1, I, 12$ 
TUS, 15$ 


R9, PTR, (R10) 
16$ 


#4, MOMSAB_MSGBLOCK 
#MOMS UNSHOPDEV. MOMSAB_MSGBLOCK+12 


MSGSIZE 
MOMSAB_MSGBLOCK 


#2, MOMSBLD_REPLY 


MSGSIZ 


ILDSC 


RO, 
STAT 


17 


IZE 


401 
- LIBSSIGNAL 
STATUS, RO 


#6, MOMSGL_ SERVIC 


E 
<<MOMSAB_SERVIC 
>+9> 


19$ 
#0, MOM_CHECK_LABEL_BLK 
#1, RO 


RO 


2 Bed 6 Page 4 
: CMOM.SRC JMOMLOAD .832; 1 (10) 


MOMSAB_NICE_XMIT_BUF 
gee gee 


F 
MOMSAB_SERVICE_DATA+9CR7J, FILDSC+4 
FILDSC 
#2, MOMSSRVOPEN 

STATUS 

US, 178 
MOMS BGMDETAIL, MOMSAB_MSGBLOCK+8 
MOMSAB_MSGBLOCK 
2, RORSBLD_REPLY 


M N XMIT_BUF 
rs sae rnd CE. IT_6U 


S, 188 
TA+<SVDSGK_PCNO_STY*137>- 


Pee Se Se Se Se Se Ge Se Se Be Se Se Be Se Se Se Se Se Se Ge Se Be Be Se Se Be Fe Se Se Be Se Be Se Se Se Se Be Se Se Se Be Se Se Se Se Se Se Se Se Se 


2 


1888 


AOU VN 


Ok kk tt tt 
} >< = 
WMmFOo-000-0O@ 


MMM 
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ZSBTTL ‘mom_readloadfile Read a block from the image file’ 
ROUTINE mom_readloadfile (read_buf_dsc) : NOVALUE = 
‘4 


! FUNCTIONAL DESCRIPTION: 

This routine reads a block from the load file that is currently open. 
FORMAL PARAMETERS: 

READ_BUF _DSC Address of read buffer descriptor. 
IMPLICIT INPUTS: 

The load file to be read is open. 


MOMSL_LOADSIZE . 
MOMSW_PGMDETAIL . 


' 
{ IMPLICIT OUTPUTS: 


MOMSQ_DATADSC Describes the extent of the data that was read. 
MOMSL_BLKCNT Number of 64-byte blocks in the buffer. 


ROUTINE VALUE: 
COMPLETION CODES: 


Signal errors. 
SIDE EFFECTS: 
NONE 


WR (OO OONOUE WN SO OONOUE WN O 


Ne ee eRe a te hy ee Nadie! aoe 


“ 


WAN NAA AANA NNW NWN 


o 
WAWNWAAW NAW 


BREE EE FUWWWWWIWIWIWIWINIRINIRININININININ 2 2 2 SOOO 


a a a a se ss ts as a st 8 ts tk tn a a 


BEGIN 


LOCAL 
msgsize, 
status; 


AEeeeee 


PAA 


i Read as many records from the load file as will fit into the read buffer 
and return the byte count of the data read in MOM$Q_DATADSC. 


mom$srvread (.read_buf_dsc 
nonSq_datadsc £02, 
-mom$w_pgmdetail); 


' 

' Return the number of 64 byte blocks. If the number of blocks in the 
! buffer is less than the number of blocks remaining to be loaded then 
! use the number to be loaded. This will account for extra blocks that 
were the result of zero-filling. 


mom$l_bikcnt = .mom$q_datadsc [0] / 64; 


i If the number of blocks is zero then the oye count of the record that was 
' read was not valid. The record size must be a multiple of 64. 


AAA 


MEWN —-O0Oen 


NAMA UN @ OS ODNANE WIN $$ O OODNOAUN EWN 0 ODA UE AR OOO NOUS wy 


—O0ono 
td edad od eed ed ad et ad et ad ad I II aI edad ad ed edad ad edad aD ad ad dad ad adadadad 


me ke a a a a aan kk kt kk ak a at a at ts a = a = a ss — 4 Ls 
OUnFWMr—O0eon 


SSEES 


WA 
QuikWwn—O0ew 


AWA 


kk td td od 
~ 
uw 


; Routine Size: 


3 1384 


Network Mana 
mom_readload 


mom$ab_msgblock 
mom$ab_msgblock 
mom$ab_msgblock 
monseb gnegoroc’ 

d_real 
Sotonet: _@sg 


at at a a ae tk ts ds 8 


msb$b_code 


mete 1 sgtela : 
msbéw_ detail) 


pent Down Line Load Routines 13-36 Sep 9° 138% 96:03 
Read a block from the im 14-Sep-1 


ir -mom$l_blkent EQLU 0 THEN 
BEGIN 


= msb$m_msg_ hes. 
= ee _8ts_fco; 
w_pgmdetail; 


“text] = = sont Vagrecsiz; 


Looe msgblock, msgsize) 
{mom$ab rye buf, . 


sasgsize); 


IF .mom$l_blkcnt GTRU .mom$l_loadsize THEN 
mom$l_blkcnt = .mom$ | _loadsize; 


END; ! End of mom_readloadfile 
000C 00000 MOM ieatene Aga OO 
53 00000000G EF 9E 00002 MOVAB 
52 00000000" EF 25 00009 MOV 
5E 4 g ante SUBL 
7E of A C 0001 MOVZWL 
0C20 C2 9F 00017 PUSH 
04 AC DD 00018 PUSHL 
00000000G_ EF 3 4 Bote CALL 
62 0C20 C2 00000040 F C? 000 DIVL 
4 is 0002F BNEQ 
63 04 D 4 1 MOVL 
046 =A OE 8€ 000 MNEGB 
08 A 0c Ad B0 000 MOVW 
OC A3 000000006 8F 00 000 2 MOVL 
4008 F 6B Babe PUSHR 
000000006 EF 02 FB 00049 CALLS 
6— 0D 00050 PUSHL 
000000006 EF 9F ORs PUSHAB 
02070000 F DD 0005 PUSHL 
000000006 08 3 FB 0005 CALLS 
046 =A 8 D1 Bee 18: CMPL 
4 18 BLEQU 
62 04 A2 D0 00068 MOVL 
04 O006F 2$: ET 
112 bytes, Routine Base: SCODES + 0896 
1374 1 


s-32 V4.0 


VAX-11 Blis reg 
STER: CMOM. SRC MOMLOAD .B32; ;* 


DISKSVMSMAS 


33 


> 


R2,R3 
HOMSAB MSGBLOCK, R3 
MOMSL ABLKCNT, Rd 


MOMSW -PGMDETAIL, ~(SP) 
MOM$Q~DATADSC 
READ Bur pst 
MONSSRVREAD 
mss, MOMSQ_DATADSC, MOMSL_BLKCNT 
i MOMSAB MSGBLOCK 


14, MOMSAB_MSGBLOCK+4 
moméw. PC "POMDETAIL MOMSAB_MSGBLOCK+8 
AMOMS -INGR GRECSIZ. MOMSAB-MSGBLOCK+12 


ee MOMSBLD REPLY 
MOMS rpitt -XMIT_BUF 
reat 

LIBSSIGNA 
MOMSL -BLKCNT, OMSL _LOADSIZE 
MOMSL_LOADSIZE, MOMSL_BLKCNT 


ap 
11) 


WNW Fue 


ee 
FF 


La 
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mom_check_label_blk Perform file Label bl 14-Sep-1984 12:44: DISKSVMSMASTER:CMOM.SRCJMOMLOAD.B32;1 = (1 


ZSBTTL ‘mom_check_label_blk Perform file label block check" 
ROUTINE mom_check_label_blk : NOVALUE = 


Lae 
! FUNCTIONAL DESCRIPTION: 


The load files are assumed to be built by the RSX11M task image 
builder. Read in the file label blocks and extract the information 
required to down Line load the image in the file. 


IMPLICIT INPUTS: 
MOMSW_PGMDETAIL Detail code to use for file contents errors. 
IMPLICIT OUTPUTS: 


MOMSL_LOADSIZE = the size of the image to be down Line loaded. 

he size is specified in number of 32 word blocks. 

MOMSL_BASEADR = The address at which to start loading the image 

nto the target node's memory. 

MOMSL_TRANSFER = The address at which to start execut ing the image 
once it has been down Line loaded to the target node. 


45 
2) 


WAWAAA AANA AANA AANA 
SIF Soe > bee ie be i 
MEW "OVO OVNOUE WN" OVOO~tNOu 


VSDBVTAEANVASSRIF AF AVL ODSBVEM ROO 


Be Se Se Be Se Se Be Se Ge Se Se Se Ge Se Se Ge Ge Se Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ss Ss Se Se Se Se Se FF Se SF Se SH Se Se Se Ge Se SH Se Ss Se Sse bees 


ek a a ak a at ad a I = = 2 2 2 Ls SS Ls SS SY SY YY LY 
a ee ee Lee 


PRIPDPOPNPMONINPPYPOPIMONONININYIAPINYAIMUNIPIPIPIDIPIRD 2 8 at ot at at ot 6 8 SS SS 

~ 

bad 

Cc 

= 

a 

< 

ee 


4 
4 
4 
4 
4 
4 
r 
4 
4 98 ROUTINE VALUE: 
? 44 COMPLETION CODES: 
4 401 Signal errors. 
4 re 
4 a 
: 406 BEGIN 
4 40 : 
2 $38 : Define RSX label block symbols. 
“5 410 2 EXTERNAL LITERAL 
42 411 \Sbflg ! word 
4 tig ! Word 
424 41 LSbmxv, ! Word 
425 414 \$bldz, ! Word 
4 $ 415 L$bmxz, ! Word 
4 $18 L$bwnd, ! Byte 
428 41 L$blib, ! Word 
429 $18 \$bsgl, ! word 
4 41 \$boff, ! word 
431 420 L$SbbLk, ! Word 
$36 421 \$bsa, ' Word 
4 4 ¢ \$bxfr, ! Word 
rh 4 ts$nhd, 
435 424 ts$chk, 
437 : 5 ts$res; 
4 4 $ LOCAL 
439 4 3 label_buf_dsc : VECTOR (2), ! Descriptor for label read buffer 
440 4 tbl : REF BBLOCK, ! Pointer to label buffer 
sd: LOCK, ! Pointer to mage section desc 
441 430 isd : REF BBLOC ! Poi VMS i ion d 
442 431 iha : REF BBLOCK; ! Pointer to VMS image activation desc 
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mom_check_label_blk Perform file Label bl 14-Sep-1984 12:44: DISKSVMSMASTER:CMOM.SRCJMOMLOAD.B32;1 (12) 


‘ Label _buf_dsc Fo} = 512; 

Label buf dsc = mom$t_readbuf fer; 
Read the file Label block. 
mom_readloadfile (label_buf_dsc); 


a ee 


Lol = mom$t_readbuffer; 


i Determine whether image is an RSX-11 or VMS image. This is done by 
} testing the last word in the image header. 


if .lbL0510,0,16,1] GEQ 0 THEN 
BEGIN 


PUPPIES 


DOONAN WN" OODONOUE Ww 


wn 


; Save the RSX task image information from the Label block. 


Dk al ek ell lk eka ek ek ee a 


60 . 
61 mom$l_blkcnt = .Lbl Cl$bbik,0,16,0); 
6¢ mom$\-loadsize = .lbl Cl$bldz,0,16,0]; ! Image size (32-word blocks) 
6 mom$\_baseadr = .lbl (l$bsa ,0,16,0]; ! Starting memory address 
rf: mom$\_transfer = .lbl ClSbxfr,0,16,0); ! Image transfer address 
END 
ELSE 


BEGIN 
' 
Save the VMS image information from the image header block. 


a ee ee ee ee a ed ed ad nd ed od 
cc ee ce ce ee el ee ee el ee ee ee el el a el el el ce el el el el el ee ee ee 


4 4 

rh & 

468 4 

469 4 

th d 

47e 461 mom$l_blkcnt = Lb Cihd$b_hdrblkent); : 

47 re isd = .lbl CihdSw_size) + .lbl; ! Get first image section desc 
474 46 mom$\_loadsize = .isd {sdu_pagcnt * 8; ! Image size (32-word blocks) 
475 464 mom$|_baseadr = .isd Cisd$v_vpn] * 512; ! Starting memory address 
476 465 iha = .lbl Cihd$Sw_activoff] * .lbl; 

477 re ¢ mom$l_transfer = .iha Ciha$l_tfradr1); ! Image transfer address 

278 ree mom$\_transfer = .mom$l_transfer<0,31,0>; ! (remove SO bit) 

a1 ET eats 

rt} 471 i Read past the Load file Label blocks to the on abn of the image to be 
ret $76 } loaded. (The first label block has already been read.) 

485 47% DECR i FROM .mom$\_blkcnt - 2 D0 

ri rh mom_readloadfile (label_buf_dsc); 

489 478 RETURN * 

491 480 END; ! End of mom_check_label_blk 


-EXTRN LSBFLG, LSBHGV, LSBMXV 
-EXTRN LSBLDZ, LSBMXZ, LSBWND 
-EXTRN LSBLIB, LSBSGL, barca. 
~-EXTRN LSBBLK, LSBSA, LSBXFR 
-EXTRN TSSNHD, TSSCHK, TSSRES 
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001C 00000 MOM_CHECK_LABEL_BLK: 
-@ORD “Save R2,R3,R4 
MOVAB 


4 B AF 9E 0090 MOM_READLOADFILE, R4 
3 00000086" F 3 098 MOV MOMSL_TRANSFER, R3 
E 4 Sust2 #4, S 
a 920 F 3C 0001 MC e2NL #52 LABEL_BUF _DSC 
04 AE 61 3 9E 0001 MovAB  MOMST_READBOFFER, LABEL_BUF_DSC+4 
E DD 00018 PUSHL 
64 } FB 0001D CALLS #1, MOM_READLOADF ILE 
50 0612 C3 9E 00020 MOVAB MOMST_READBUFFER, LBL 
1FE ¢6 8 00 3 IST 310(LBL) 
FBO 900000006 EO C 000 : MOVZWL LSBBLK(LBL), MOMSL_BLKCNT 
a 6h 99000006 EO 3¢ 000 MOVZWL LSBLDZ(LBL). MOMSL~LOADSIZE 
FL OA 9000 0006 £0 %3¢ 000 : MOVZWL L$BSA(LBL) $L_BASEADR 
63 000000006 £0 C 0004 MOVZWL LSBXFR(LBLS, MOMSC_TRANSFER 
—E 11 0004A BRB $ 
FB OAS 10 AO 9A 0004¢ 1$: MOVZBL 16(LBL), MOMSL_BLKCNT 
51 60 3¢ 900 MOVZWL (LBL), ISD 
51 50 ¢0 00054 ADDL2 LBL isd 
5 02 Al ¢ 00057 MOVZWL 2(1SD), R2 
FC A3 5 03 78 00058 ASHL #3, R MOMSL_LOADSIZE 
52 06 «Al 1 00 ai 00060 EXTZV #0. #21, ‘ 
Fu OAS 52 09 78 00066 SHL #9, Re, MOMSL_BASEADR 
51 02 Ad 3¢C 00068 MOVZWL 2(LBL), R1 
50 51 CO 0006F DL2. R11, IHA 
63 60 00 90072 MOVL (IHA), MOMSL_TRANSFER 
63 63 1F 00 EF 0007 EXTZV #0, #31 MOMSL_TRANSFER, MOMSL_TRANSFER 
52 FB OAS 01 C€3 O007A 2$: SUBL3 #1. MOMSL_BLKCAT, I 
05 11 0007F BRB 4$ 
SE DD 00081 3$: PUSHL SP 
64 9 FB 00083 CALLS #1, MOM_READLOADF ILE 
F8 2 F4 00086 4$: SOBGEQ 1, 3$ 
04 00089 RET 


; Routine Size: 138 bytes, Routine Base: $CODE$ + 0906 


Bete Se Se Ge Se Se Se Be Se Se Se Se Se we Se Be Be Se Se Se Se Fe Be Se Se Fe Ge Fe Fe Se Ge Se 


-1984 02:03: VAX-11 Bliss-32 V4.0-74 P 47 
Ory8be WSikeds «| MIEKbUMGMASTERSCMGA’ seCIMOMLOAD.032:1°% «18% 
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foe a Se SS rrr ——————v—r—- + V1" OOO 


; Name Bytes Attributes 


1 
MOMLOAD Network Management Down Line Load Routines Bese 1984 02:03: VAX-11 Bliss-32 V4.0-74 Page 48 md 
_ v06-000 mom$loadhandler Condition handler 14-Sep-19 4 ra DISKSVMSMASTERSEMOM. SRCIMOMLOAD .B32:1 : (13), ve 
(3 1493 1481 1 ZSBTTL ‘mom$loadhandler Condition handler' ; 
(3 1496 1288 1 GLOBAL ROUTINE mom$loadhandler (signal_vec, mechanism) = . 
3 1495 14 1 ° 
; 6g8 1484 1 !44 ° 
13 149 1485 1 ! FUNCTIONAL DESCRIPTION: ‘ 
|; 1498 1486 1! ° 
: 1499 1487 1! This routine is a condition handler that performs cleanup ° 
; 1209 1058 : } at the end of load operations. ALL files are closed. ‘ 
F 1208 1490 1 ! FORMAL PARAMETERS: | ‘ 
; 150 1491 1! . 
; 1504 1336 &. SIGNAL VEC Pointer to the signal yector. ° 
; 1505 1495 1! MECHANTSM Pointer to the mechanism array. : 
; 1208 1494 1! ‘ 
; 1507 1495 1 !<- ‘ 
; 1508 1496 BEGIN ° 
3; 1509 1497 ‘ 
; 1510 1498 MAP ‘ 
3; 1511 1499 signal_vec : REF BBLOCK, ! Signal vector argument | ° 
; 1218 1209 § mechanism : REF BBLOCK; ! Mechanism vector array pointer : 
: 1514 130¢ 2 | | : 
; 1515 150 ! Close any open file. ° 
; 1516 1504 : ‘ 
3; 1517 1505 mom$srvclose (); ‘ 
; 1518 1506 | ‘ 
; 1519 1507 RETURN ss$_resignal; ! Always resignal error ‘ 
: 1520 1508 2 : 
; 1521 1509 1 END; ! End of mom$loadhandler ‘ 
0000 00000 ENTRY MOMSLOADHANDLER, Save nothing : 1482 
00000000G_ EF 00 FB 00002 CALLS #0, MOMSSRVCLOSE 3; 1505 
50 0918 8F 3C 00009 MOVZWL #2528, RO : 1507 
04 OO00E RET ; 1509 
; Routine Size: 15 bytes, Routine Base: $CODE$ + 0990 
; 1522 1510 1 | 
3 1357 1511 1 
3; 1526 1316 1 
: 1525 151 1 END 
3; 1526 1514 1 
3 1527 1515 0 ELUDOM | 
-EXTRN LIBSSIGNAL 
: PSECT SUMMARY | 
| 
| 


so —_— 1 as sss 


Lexemes/CPU-Min: 11171 
pene Used: 192 pages 
Compila 


tion Complete 


3 
_ MOMLOAD Network Management Down Line Load Routines 16-Sep-1984 06:03:13 VAX-11 Bliss-32 V ong 
/ v04=000 mom$loadhandler Condition handler 14-Sep-1984 12:44:3 DI SKSVMSMASTERS chOne SRC MOMLOAD .B832; 29 
| 
ft sowns 3120 NOVEC, WRT. RD .NOEXE.NOSHR, LCL, REL, CON,NOPIC.ALIGN(2) 
is SPLITS 2 § NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 2465 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
| 
H Library Statistics 
: soeee=-- Symbols ----- =<- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: MOM OBJ IMOML 1B. 325 1 194 39 20 21 00:00.1 
> 7$255$DUA28: CSHRLIBINMALIBRY.L 32:1 887 18 2 47 00:00.2 
> _~$255$DUA28: CSHRLIBIJEVCDEF .L32;1 213 2 0 15 00:00.1 
: _$255$DUA28: CSHRLIBINET.L32;1 1279 0 0 63 00:00.4 
; ~$255$DUA28:CSYSLIBILIB.L32;1 18619 10 0 1000 00:06.6 
H COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE),LIS=LIS$:MOMLOAD/OBJ=OBJ$:MOMLOAD MSRC$:MOMLOAD/UPDATE=(ENH$:MOMLOAD) 
Size: 2463 code + 3402 data bytes 
; Run Time: 00:46.0 
Elapsed Time: O1388-3 
Lines/CPU Min: 1976 
| 


023 -BT13A-SE DIGITAL EQUIPMENT CORPORA 
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